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CONTENTS 


SECTION ITEM 


A. MEMORY MAP 

B. LINK MAP 

EQUATE FILE INDEX (alphabet ical order! 

MODULE LISTING INDEX (alphabetical order) 

POWER UP SELF-TEST (by function) 

Entry module (puptst) 

Memory test 

interrupt controller test 
Timers accuracy test 
Disks controller test 
Disk drivers tests 
CRT tests 

Option Rom It Ram tests 

DEVICE SERVICES ROUTINES (dsr) 

Beeper dsr 
Day time clock dsr 
CRT dsr 
Disk io dsr 
Key board dsr 
Printer dsr 
Timer dsr 

Screen display dsr 

0. ROM DATA AREA 

H. BOOT STRAP VECTOR ( reset ) 

1. EXAMPLES 


C. 

D. 

E. 



SECTION A 


SYSTEM ROM ORGANIZATION 


Absolute 

Address 


Relative 
CS- F400 

F 40000 

i 

« 

• 

F400: 0000 

F6000 

i 

» 

• 

F400: 2000 

F8000 

• 

• 

F400: 4000 

FAOOO 

. 

• 

F400: 6000 

FCOOO 

i 

i 

F400: 8000 




FDFFF 

i 


FEOOO 

i 

• 

« 

F400: A 000 

FE03F 

; 

i 

i 

F400: A03F 


F400: BFFO 


OPTION 

ROMS 


1st 8k option ROM 
future uic 


. 2nd 8k option ROM 
! 3rd 8k option ROM 
. 4th 8k option ROM 


• ....... ..... .... i 

! 9th 8k option ROM 1 
! future use 1 

» ...... .... • 


CURRENT SYSTEM ROM 
PARTITION 


System Rom HEADER 
Directory of this 
Rom is in 'HEADER ' 


PUPTST 

Rom code entry point 
for power up tests.. 


ROM BIOS 


RESET 

system boot strep 
vector * 'PUPTST' 


The TIPC System memory Oryeniietion is defined in the 'SYSORG' 
nodule* wich must be the first module of the input link control file. 

This module does not allocate memory but assigns the Rom and Ram symbols. 


A. 1 


SYSTEM RAM ORGANIZATION 


lit 16k RAM arc 

Abioluta accessible by ROM 

Address with CS-F400 


OOOOO 


00400 

01200 

03FFF 

OCOOO 

OFFFF 

10000 

20000 

30000 


F400 COOO 


F400 C400 


> 


> 


end 64k Bank Oth 


1st 64k RAM 
Bank O 


System interrupt 
vec tors 


10. SYS 


ROM DATA 


MSDOS 1 . k 


BOOTER 


64k option RAM 
Bank 1 


64k option RAM 
Bank 2 


64k option RAM 
Bank 3 


up to 
512 k 


16k 


Note that the location of ROMDAT is initially 40 0000. During the 
process ROMDAT is relocated in memory immediately after the location o 
RAM BIOS. 

To determine the specific location of the ROMDAT(after boot), read 
contents of the first word in software interrupt 60 (segment address ) 
(absolute location 180H). The site of ROMDAT is indicated by 
the second word of software interrupt 60 (absolute location 102H). Th 
contents of this software interrupt is set by the RAM BIOS loader (10. 


boot 

f 

the 


e 

SYS). 


A. 2 



SECTION D 


MODULE LISTING INDEX (alphabetical order) 


Module Address Module 

Name C9-F400 Description 


DELDSR F400: AAFE Beeper dsr 

CLKDSR F400: AB9B Day time clock dsr 

CONFIG F400: BA84 Return system configuration 

CRTDSR F400: AC 1 A CRT dsr 

CRTTBL F440.BFB3 CRT ini t ial i xat ion tables 

CRTTST F400:A636 CRT tests 

DKBOOT F400AA47 Disk booter loader 

DRVTST F400: ASB3 Disk drivers tests 

DSKIO F400.B0D9 Disk io dsr 

DSKISR F400: B323 Disk interrupt handler 

DSKTBT F400: A4A4 Floppy disks controller tests 

FLPDIR F400: B473 Generic disk operation 

HEADER F400: AOOO Rom header information 

INTTST F400: A 190 Interrupt controller tests 

1NTXIT F400.BD42 Common interrupts exit 

KBTABL F400: BDBE Key board encoding tables 

KEYD9R F400.B719 Key board dsr 

KEYT9T F400: A8A1 Key board ini t ial i tat Ion 

MSCTST F400.A7DD Miscelaneous ini t ial i tat Ion 

OUTPUT F400: BB73 Screen display servlve 

PRTDSR F400:B9F6 printer dsr 

PUPTS1 F400A913 Option Rom * Ram tests 

PUPT9T F400; A03F Power up test entry point 

RAMINI F400: A! 43 Setup Rom's data In Ram 

RESET F400: BFFO Boot strap vector 

ROMDAT 0000:0400 Rom data is Ram resident 

ROMERR no memory Error equ module 

ROMTIM F400: BA9D Rom timing services 

ROMUTL F400: BD6& System Rom Utilities 

SYSORO no memory System ROM organization 

TIMISR F400BAC1 System timer intr. lerv. 

TIMSUB F400: BB1D Restart timer service 

TIMTST F400: A333 Timers accuracy tests 

TSTERR no memory Error equ module 

VEC INI F400: A434 Intrpt. vectors 1 n 1 1 la 1 1 za 1 1 on 
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Hitting END statement 


1 i ###*##*•#*#*« #e#e##***#**#»#e»e»#*##e#****e #•***#***#*#*#*#*#* #*#*###*< 

2 i Th* BIOS routines ihould b« called through software interrupts. 

3 i Each module includee a header deecriblng the correct calling 

4 i sequence. Applications should not access the BIOS through 

3 i absolute addresses. Incompat ib i 1 1 tg with future TI releases can 

6 i result from Incorrect us* of the BIOS. 

7 i *e*e***e#«#**e#**#e*#a#*»***************###*w*#*##******#*#*e*#*#*#ee# 
0 

9 

10 


No errors detected 



OUTPUT HAP FILE 


» 




Section 

Type 

Statue 

Baee 

Length 

Range 


• PEL. 

Re 1 

Float 

0 

0 

0 

FFFFF 

ABSO 

Rel 

Fixed 

0 

C200 

0 

FFFFF 

ROHDAT 

Rel 

Filed 

400 

MO 

0 

FFFFF 

CRTDAT 

Rel 

Filed 

DEOOO 

1B20 

0 

FFFFF 

ROMCOD 

Rel 

F 1 ted 

F 4000 

BFDA 

0 

FFFFF 

RESET 

Rel 

Filed 

FFFFO 

10 

0 

FFFFF 


Global 

Value 

Global 

Value 

Global 

Value 

ALTMON 

FFFC3 

ARGHHH 

FFC9C 

ATMERR 

1 

ATTERR 

2 

ATTBAV 

439 

BEEP 

FEB84 

BEEP 10 

FEAFE 

BEEPOF 

FEB6E 

BELEVT 

420 

BOOTLO 

cooo 

BOOTliV 

COOO 

BOOTSZ 

200 

CFG* 10 

FFA6D 

C INTER 

20 

CLK4I0 

FEB9B 

CLKSRV 

FEBE9 

CRAMER 

B 

CRT4I0 

FECIA 

CRTCNT 

430 

CRTERR 

437 

CRTHLD. 

430 

CRT INI 

FE7BF 

CRTOUT 

FEC92 

CRTRET 

FEC80 

CRTT8T 

FE636 

CURERR 

4 

CURPOS 

42C 

CURTYP 

432 

DfDBGN 

462 

D4DEND 

4A9 

DbDIT 

462 

D4EKNT 

4B2 

DtNCMD 

4B3 

D*NSTA 

484 

D4P09 

489 

D4REO 

40D 

D4SOFT 

49E 

D4STAT 

49F 

D4WAIT 

4 AO 

DtUKSP 

4A1 

DATE 

93E 

DBCERR 

30 

DC ALL 

FF2S6 

DCRERR 

32 

DDNERR 

39 

DECLED 

FFD71 

DELAY 

FFD66 

DF INI S 

FF293 

DFMERR 

37 

DI8BE0 

428 

DIBEND 

42A 

DKBOQT 

FEA47 

DKSPSV 

4AC 

DKSSSV 

4AA 

DN1ERR 

30 

DNRERR 

31 

DNBERR 

36 

DRVTST 

FE983 

DBK*IO 

FF0D9 

DSKC4M 

400 

DSKERR 

33 

DSKEVT 

40B 

DSKINI 

FF299 

DSKIBP 

916 

DSK I SR 

FF329 

DSK54M 

402 

DSKTST 

FE4A4 

DBNERR 

34 

DSPDIE 

FFB73 

DSPERR 

FFC04 

DSPERZ 

FFBFB 

DSPKER 

FFBFC 

DUNERR 

39 

E4CMD 

B 

E4EVEN 

1 

EtODD 

2 

E4RE0 

4 

ENDQ 

462 

EPROM 

FCOOO 

FATAL 

FFC9A 

FATERR 

90 

FILVEC 

FE476 

FL1EVT 

410 

FL2EVT 

418 

FLIERR 

B 

FLPDIR 

FF479 

FLUSH 

FF77F 

FRCINT 

FF49F 

* GCONFi 

FFAB4 

GCONFO 

FFA7E 

HOURS 

93D 

HUNS 

93A 

ICNERR 

0 

INICRT 

FE5ED 

INILST 

FE7B0 

INTRET 

FFD69 

INTT9T 

FE190 

INt X IT 

FFD42 

1NVALI 

FFFF 

IVIERR 

1 

IXSPBV 

4B4 

IXS5SV 

4B2 

KB4ALT 

FFEC6 

RBCTRL 

FFE9E 

KBFUNC 

FFF2E 

KBMODE 

43F 

KBNUMK 

FFFA9 

KBSHFT 

FFDF6 



utmtiti 


i 

» 


Input 

OUTPUT 

l 

FFB73 

F400: BB73 

Benin display ssrviva 

Input 

1NTXIT 

9 

FFD42 

F400: BD43 

Common Interrupts silt 

Input R0I1UTL 

I 

9 Tables 

9 

FFD66 

F400: BD66 

System Rom Utilities 

« 

Input 

KBTABL 

9 

FFDBE 

F400: BDBE 

Hey board encodlny tables 

Input 

CRTTBL 

9 

FFFB3 

F440: BFB3 

CRT Ini t lal 1 lat Ion tables 

9 

Input 

ROHDAT 

I 

00400 

0000: 0400 

Rom data Is Ram resident 

Input 

REBET 

9 

FFFFO 

F400: BFFO 

Boot strap vector 


i 

i Define tin section! 

9 

BABE AB 80*00000 
BABE ROMDAT-400 
BABE CRTDAT-DEOOO 
BABE R0HC0D-F4000 
BABE REBET-FFFFO 


B.2 




KBSP9V 

4A8 

KB9SSV 

4A6 

KBUNSH 

FFD0E 

KEY* TO 

FF7I9 

KEYERR 

10 

KEYIN 

FF741 

KEYINI 

FF8I0 

KEY ISP 

4E6 

KEY I SR 

FF037 

KEYOUT 

FF79C 

KEYR9T 

FF02B 

KEYTST 

FE8A1 

KN1ERR 

10 

KNRERR 

11 

KPAUSE 

FF83A 

KRAERR 

12 

KRCERR 

13 

KROERR 

13 

KUNERR 

14 

LBEEP 

FEB7C 

LEDOOO 

7 

LEDOOI 

6 

LED010 

3 

LED01 1 

4 

LEDIOO 

3 

LED101 

2 

LED1 10 

1 

LEDIII 

0 

MINS 

33C 

MOTOFF 

FF313 

MSCT9T 

FE7DD 

MSG 

FFCD4 

NMIERR 

2 

NMIGO 

FFC43 

NUMCNT 

441 

NUMDRV 

0 

NUMVAL 

440 

OPRERR 

20 

PRCO*M 

401 

PRINT 

FFA34 

PROMPT 

FEAOE 

PRT*IO 

FF9F6 

PRTINI 

FFA13 

PRTRST 

FE28D 

PUPNMI 

FFCB! 

PUPT9I 

FE913 

PUPTST 

FE03F 

PURMPE 

9 

PUXNME 

0 

PWRUP 

FFFFO 

QDEPTH 

43E 

CFRONT 

43A 

OREAR 

43C 

QUEUE 

442 

RAMINI 

FE143 

RCONFO 

FFA8C 

RETFLC 

436 

RMDTBO 

400 

RMDT9Z 

140 

RMPERR 

41 

ROMERX 

20 

ROMEVT 

406 

R0MF4 

F4000 

ROMF6 

F6000 

ROMF0 

F0OOO 

ROMFA 

FAOOO 

ROMS I Z 

2000 

ROMTIM 

FFA9D 

ROMTST 

FEOFD 

ROMVER 

FE007 

BBEEP 

FEB0O 

BECS 

53B 

SETDAT 

FEBB0 

6ETTIM 

FEBBC 

90FINT 

FF2EA 

9TAM0N 

FFFB3 

BTATLN 

434 

STATUS 

FF73A 

SYSCON 

403 

9YSROM 

FEOOO 

TOERR 

20 

TIERR 

40 

T2ERR 

00 

THSLIN 

42E 

TIKCTR 

403 

TIMCAN 

FFB10 

TIMERS 

4 

TIMISP 

33A 

TIMISR 

FFAC1 

TIMOUT 

FF2E3 

TIMR9T 

FFB10 

TIMT9T 

FE333 

TMSPSV 

4B0 

TMSSSV 

4AE 

TBTPAT 

FFFD3 

VBLERR 

40 

VEG INI 

FE434 

VECTBO 

FE3A0 

VI DERR 

10 

VTOLEN 

A 

WILD** 

FFC96 

WLDERR 

42 

XNMERR 

40 







•MAIN. CR8086/U viriion 10.34.17 2-Aug-83 16:23:2 Pag* 6-1 
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ACCRUE 

0000 

ACCFDC 

0080 

ACK 

0006 

ACTINT 

0034 

AH 

Reserved 

AL 

Rtitrvtd 

ATTLAT 

1800 

AX 

Reserved 

BEL 

0007 

BELINT 

0048 

BH 

Reserved 

BL 

Reserved 

BLNLEN 

00 5C 

BLOCK 

OODB 

BOOCRC 

01FE 

BOOT ID 

01FC 

BP 

Reserved 

BRKINT 

0003 

BB 

0008 

BUFFDC 

OOCO 

BX 

Rtttrvtd 

BYTE 

Reserved 

CAN 

00 IB 

CANINT 

0032 

CDSPEN 

0040 

CH 

Rcftrvtd 

CINTEN 

OOBO 

CINTIM 

1300 

CL 

Reserved 

CLKINT 

004E 

CMP I NT 

0037 

COMPLT 

0033 

CON I NT 

004F 

CR 

OOOD 

CRCERR 

OOOB 

CRTACB 

0010 

CRTADR 

1810 

CRTCGR 

0014 

CRTCTX 

0013 

CRTGDB 

0017 

CRTINT 

004? 

CRTLPP 

0004 

CRTMOD 

0000 

CRTOFF 

0020 

CRTPT3 

0018 

CRTRAC 

0008 

CRTRCP 

0003 

CRTRPX 

OOOD 

CRTRV8 

OOOF 

CRTSAT 

0016 

CRTSCA 

0012 

CRTSCP 

0002 

CRTSCT 

0001 

CRTBDN 

0007 

CRTBDP 

0003 

CRT9GP 

OOOB 

CRT9TA 

1811 

CRTSTY 

0013 

CRTBUP 

0006 

CRTVBL 

0020 

CRTWAC 

0009 

CRTWCB 

0011 

CRTWCH 

OOOA 

CRTWPX 

OOOC 

CRTWTY 

OOOE 

CB 

Reserved 

CSWRAP 

COOO 

CUREND 

OOOB 

CURPSH 

OOOE 

CURPSL 

OOOF 

CURSTR 

OOOA 

CX 

Reserved 

DATERR 

0004 

DC 1 

001 1 

DC 2 

0012 

DC 3 

0013 

DC 4 

0014 

DEL 

007F 

DM 

Reserved 

DI 

Reserved 

DISSTH 

OOOC 

DIB3TL 

OOOD 

DITCYL 

0007 

DITDIR 

0000 

DITDBK 

OOOB 

DITERR 

0009 

DITINV 

OOOO 

DITLEN 

OOOB 

DITPRC 

OOOA 

DITBEC 

0004 

DITTRK 

0006 

DKABRT 

OOOD 

DKABTD 

001 1 

DKBADC 

OOOC 

DKBADD 

OOOF 

DKBOUN 

0009 

DKCMDE 

0001 

DKCRCE 

0010 

DKDMAE 

0008 

DKFAIL 

0020 

DKFMTE 

0002 

DKFBET 

0008 

DKFBTA 

OOOE 

DKKMOT 

OOOB 

DKNORM 

0000 

DKNRDY 

OOBO 

DKRDIT 

OOOA 

DKREAD 

0002 

DKRNFE 

0004 

DKRBET 

0000 

DKSEEK 

0040 

DKSETC 

OOOC 

DKSSTA 

0007 

DKSTAT 

0001 

DKVERF 

0004 

DKVFYE 

0003 

DKVRFY 

0006 

DKWPRT 

0003 

DKWRIT 

0003 

DKXBET 

0009 

DL 

Reserved 

DLE 

0010 

DRSELO 

OOOE 

DRSEL1 

OOOD 

DR9EL2 

OOOB 

DRSEL3 

0007 

DRVBYT 

019B 

DRVM9K 

OOOF 

DRV/BSD 

0001 

DRV48T 

0002 

DR OMSK 

0001 

DR1MSK 

0002 

DR2MBK 

0004 

DR3MBK 

0008 

DS 

Reserved 

DSADDR 

01 BO 

DSADDO 

0184 

D5ADD2 

01BB 

DBADD4 

018C 

DSADD6 

0190 

D6ADDB 

0194 

DBKC4P 

0000 

DBKINT 

004D 

D5KS*P 

0004 

DSSIZR 

01B2 

DSSIZO 

01B6 

DB9IZ2 

OIBA 

DBSIZ4 

01 BE 

DBSIZ6 

0192 

DBBIZB 

0196 

DWORD 

Reserved 

DX 

Reserved 

EM 

0019 

ENABO 

OOFE 

ENAB1 

OOFD 

ENAB2 

OOFB 

ENAB3 

00F7 

ENAB4 

OOEF 

ENAB3 

OODF 

ENAB6 

OOBF 

ENAB7 

007F 

ENQ 

0003 

EOI 

0020 

EOT 

0004 

EB 

Reserved 

ESC* 

00 IB 

ETB 

0017 

ETX 

0003 

EVTACK 

0003 

EVTEXP 

0006 

EVT9TA 

0007 

EVTTYP 

0004 

E4ABTD 

0011 

E4BADC 

0001 

E4BCYL 

0004 

EtBOUN 

0009 

E4B9EC 

0004 

E4BTRK 

0004 

E4CRC 

0010 

E4N0RM 

0000 

EtNRDY 

OOBO 

EtRNF 

0004 

E49EEK 

0040 

EfTIME 

OOBO 

E4VRFY 

0003 

EfWRPT 

0003 

E12MSK 

0010 

E34M9K 

0020 

E56MSK 

0040 

FAR 

Reserved 

FATINT 

0030 

FDC 

0020 

FDCBUF 

0040 

FDCCMD 

0020 

FDCDAT 

0023 

FDCBEC 

0022 

FDCSTA 

0020 

FDCTRK 

0021 

FF 

OOOC 

FMTERR 

0020 

FORCED 

OODO 

FB 

001C 

GAM I NT 

004C 

GAMMSK 

8000 

CRAMSK 

1000 

GRASEO 

COOO 

GRBMSK 

2000 

GRBSEG 

CBOO 

GRCMBK 

4000 

GRC6EG 

DOOO 

GRPM9K 

7000 

GR*BLU 

1010 

GR4GRN 

1020 

GR4RED 

1030 

GS 

001 D 

HIGHAT 

OOOF 

HT 

0009 

HZDCHR 

0001 

HZSPOS 

0002 

HZTCHR 

0000 

ICW1 

0010 

ICW4 

0000 

IC4E0I 

0002 

IC*1W4 

0001 

IC4LTM 

0008 

IC*M66 

0001 

IC*5NG 

0002 

IEVCTR 

0004 

IEVFLG 

0003 

IEVLNK 

0000 

IEVBUB 

0006 

IEVTID 

0002 

IMMINT 

OODB 

1NTA00 

0018 

INTA01 

0019 

INTCTR 

019A 

IOB231 

OOIO 

108233 

0014 

I0B239 

0018 

IR01NT 

0040 

1R1INT 

0041 

JR2INT 

0042 

1R3INT 

0043 

1R4INT 

0044 

IR3INT 

0043 

1R6INT 

0046 

IR7INT 

0047 

IB7MBK 

0001 

KEYINT 

004A 

LED10F 

OOOl 

LED20F 

0002 

LED30F 

0004 

LF 

OOOA 

LINLEN 

002D 

LPENHI 

0010 

LPENLO 

0011 

MAPINT 

003B 

MEMBEO 

0000 

MEMEND 

07 FF 

MEMBIZ 

0198 
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EQUATE. BRC 


MMABK 

FF3F 

MODCTL 

OOOB 

MONTYP 

0004 

M0TR40 

0010 

MOTR* t 

0020 

MQTR*2 

0040 

M0TR43 

OOBO 

MBCINP 

1000 

M9C0UT 

1B20 

M103P1 

1000 

MI03P2 

2000 

M103P3 

4000 

M103P4 

BOOO 

M212P1 

OlOO 

M212P2 

0200 

M212P3 

0400 

M212P4 

OBOO 

NAK 

0019 

NEAR 

Rtstrvid 

NMIINT 

0002 

NRYERR 

0080 

NUL 

0000 

OFFSET 

Rtitrvtd 

OP* ASP 

0001 

OP*BGN 

0009 

OP*EP 

0002 

OP*FI 

0000 

OP*IR 

0003 

OP* 19 

0004 

OP* IW 

0003 

OP*NUL 

OOFF 

OP*RIB 

OOOB 

OP* TER 

OOOA 

OP*VFC 

0006 

OP*VFD 

0007 

OVFINT 

0004 

PAR I EN 

OOOB 

PARINT 

OOOB 

PAUINT 

003C 

PBKINT 

0090 

PHNBEO 

OBOO 

PHNEND 

OFFF 

PRAUTO 

0010 

PRBUBY 

0010 

PRC I *P 

OOOl 

PRCO*P 

0003 

PRDA*P 

0002 

PRECMP 

0010 

PRFAUL 

OOBO 

PRINEN 

0080 

PRINIT 

0040 

PRPAPO 

0020 

PRSLCT 

0040 

PRSTRB 

0020 

PRTINT 

004B 

PBCINT 

003E 

PBPBOO 

0001 

PBPB01 

0002 

PBPB02 

0004 

PBPB03 

OOOB 

PSPB04 

0010 

PSPB03 

0020 

PBPB06 

0040 

PBPB07 

OOBO 

PTR 

Rntrvtd 

QUEINT 

009F 

RDCMO 

OOBO 

RDtREO 

1813 

READIR 

OOOA 

READ IB 

OOOB 

RQtHAX 

0004 

RQtREA 

0001 

RQ4VFC 

0003 

RQ* VFD 

0004 

RQ*URI 

0002 

R8 

00 IE 

RSTBUF 

0022 

R8TCMD 

OOOC 

RBTINT 

0091 

BCNLNB 

0009 

BCRLEN 

4000 

BC1MBK 

0100 

BC2MSK 

0200 

BC3MSK 

0400 

BC4MBK 

OBOO 

BECBUE 

0020 

6E0 

Rutrvid 

BEKCMD 

001C 

BEKERR 

0002 

SHORT 

Rtitrvid 

BI 

Ritvrvti 

8 IDE 40 

0020 

SINGLE 

OOOB 

Bl* 

OOOF 

BLCINT 

0098 

BNFERR 

OOIO 

BOH 

0001 

804 

OOOE 

BP 

Rcsvrvad 

SPACE 

0020 

8PKREN 

0001 

BB 

Raavrvad 

BTPCMD 

009C 

BTPINT 

0001 

BTPBPD 

OOOO 

BTX 

0002 

BUB* 

001 A 

BVCINT 

0033 

BYN 

0016 

BYNWID 

0003 

BY8CEL 

01F0 

8Y8C01 

019C 

BYBC02 

019E 

B*DEP 

OOFF 

B*DONE 

0003 

B* I OLE 

0000 

B* I SEE 

0002 

BfMAX 

0003 

B*WAIT 

0001 

TC*BCD 

0001 

TC*LAT 

0000 

TC*LBB 

OOIO 

TC4MD0 

OOOO 

TC*MD1 

0002 

TC*MD2 

0004 

TC*MD3 

0006 

TC*MD4 

OOOB 

TC*ND9 

OOOA 

TC*MBB 

0020 

TC*BCO 

OOOO 

TC*BC1 

0040 

TC*9C2 

OOBO 

TC4WRD 

0030 

TIMCMD 

0017 

TIMERO 

0014 

TIMERI 

0013 

TIMER2 

0016 

TIMINT 

003A 

TMR1EN 

0002 

TMR2EN 

0004 

U9 

001F 

VFDERR 

0001 

VRADJL 

0009 

VR DR 014 

0006 

VRBPOB 

0007 

VRTROM 

0004 

VT 

OOOB 

WINM9K 

OOBO 

MINRBT 

0031 

WORD 

R«««rv«d 

WRPERR 

0040 

URSTCM 

0010 

WRTCMD 

OOAO 

URTREO 

1B12 

XITVEC 

0099 


ZDVINT 0000 

No orron tfotoct 


% 



SECTION B 


* LINK LOAD THE NODULE 9 * 


I BY60RQ must be loaded first 

9 

Input 8YB0RQ 


I • 

i Byitini fquatu ! no mtmory allocation 

i ! for that* modulti 


input ROMERR 
input TBTERR 


I Input Output 

t Powirup test Modulti tntrici rtftrtnct. 

i Modulti 




1 

absoluta 

ralativa to 

modulo 



1 

address 

C9- F400 

dascr ipt ion 

input 

HEADER 

« 

FEOOO 

F400: AOOO 

Rom haadar information 

input 

PUPT9T 

I 

FE03F 

F400: A03F 

Pouiar up tait entry paint 

input 

RAMINI 

i 

FEI43 

F400: A 1 43 

Betup Rom's data in Ram 

input 

INTTST 

1 

FE 1 90 

F400: Ai90 

Interrupt controller tests 

input 

TIMT9T 

» 

FE333 

F400: A333 

Timers accuracy tests 

input 

VEC INI 

1 

FE434 

F400: A434 

Intrpt. vectors ini t ial i lation 

input 

D9KT9T 

1 

FE4A4 

F400: A4A4 

Floppy disks controller tests 

input 

DRVTBT 

« 

FE3B3 

F400: A3B3 

Disk drivers tests 

input 

CRTT8T 

l 

F^ '<36 

F400: A&3& 

CRT tests 

input 

MSCTBT 

i 

FE7DD 

F400: A7DD 

Niscelaneous initialization 

input 

KEYT8T 

1 

FEBA1 

F400: A8AI 

Key board ini t ial i tat i on 

input 

PUPTSt 

1 

FE919 

F400: A913 

Option Rom ti Ram tests 

input 

DKBOOT 

l 

FEA47 

F400: AA47 

Disk booter loader 

i 

i Dtvict drivers 




* 

input 

BELD9R 

» 

FEAFE 

F400: AAFE 

Beeper dsr 

input 

CLKD9R 

1 

FEB9B 

F400: AB9B 

Day time clock dsr 

input 

CRTDSR 

1 

FECI A 

F400: AC 1 A 

CRT dsr 

input 

D9K_I0 

I 

FF0D9 

F400: B0D9 

Disk io dsr 

input 

DSKI9R 

1 

FF333 

F400: B333 

Disk dsr 

input 

ELPDIR 

i 

FF473 

F400: B473 

Disk interrupt service 

input 

KEYD9R 

l 

FF7I9 

F400: B7I9 

Key board dsr 

input 

PRTD9R 

i 

FF9F6* 

F400: B9FA 

printer dsr 

input 

CONFIQ 

i 

FFAB4 

F400: BAB4 

Return system configuration 

input 

ROMTIN 

i 

FFA9D 

F400: BA9D 

Rom timing services 

input 

TIMIBR 

1 

FFACI 

F400: BACi 

Bystem timer intr. serv. 

input 

TIMSUB 

1 

FFB1D 

F400: BB1D 

Restart timer service 



SECTION C 


EQUATE FILES 


File him 


PEG: ASCII.EQU 
PEG: CRT. EQU 
PEG: CRTOP.EQU 
PEG: DSHD IT. EQU 
PEG: DSKERR. EQU 
PEG: DSKOP.EQU 
PEG: DSKOPS. EQU 
PEG: DSKREQ. EQU 
PEG: DSKSTA.EQU 
PEG: INTCTLR. EQU 
PEG: LATCHES. EQU 
PEG: POR T ADDR . EQU 
PEG: FLOPPY. EQU 
PEG: SYSCELL. EQU 
PEG: SYSCON. EQU 
PEG: TIMERS. EQU 
PEG: TIMEVT.EQU 
PEG: VECTOR. EQU 
PEG: WINCHSTR.EQU 


% 


C. I 
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EQUATE. BRC 


1 INCLUDE PEQ: ABCII.EQU 

2 i 

3 i ASCII CONTROL CHARACTER CODES 

4 » 


-0000 

3 

NUL 

EOU 

OOH 

-0001 

6 

SDH 

EQU 

01H 

-0002 

7 

STX 

EQU 

02H 

-0003 

8 

ETX 

EQU 

03H 

-0004 

9 

EOT 

EQU 

04H 

—0003 

10 

ENQ 

EQU 

OSH 

-0006 

11 

ACK 

EQU 

06H 

-0007 

12 

BEL 

EQU 

07H 

-0008 

13 

BS 

EQU 

O0H 

-0009 

14 

HT 

EQU 

09H 

— OOOA 

13 

LF 

EQU 

OAH 

— OOOB 

16 

VT 

EQU 

OBH 

-OOOC 

17 

FF 

EQU 

OCH 

— OOOD 

18 

CR 

EQU 

ODH 

— OOOE 

19 

60_ 

EQU 

OEH 

— OOOF 

20 

91 

EQU 

OFH 

-OOIO 

21 

DLE 

EQU 

lOH 

-001 i 

22 

DC 1 

EQU 

UH 

-0012 

23 

DC 2 

EQU 

12H 

-0013 

24 

DC 3 

EQU 

13H 

-0014 

23 

DC 4 

EQU 

14H 

-0013 

26 

NAK 

EQU 

15H 

-0016 

27 

SYN 

EQU 

16H 

-0017 

28 

ETB 

EQU 

17H 

-0018 

29 

CAN 

EQU 

1BH 

-0019 

30 

EH 

EQU 

19H 

—001 A 

31 

6UB_ 

EQU 

1AH 

-001 B 

32 

ESC_ 

EQU 

1BH 

-OOIC 

33 

FS 

EQU 

1CH 

-00 ID 

34 

09 

EQU 

1DH 

-00 IE 

33 

R8 

EQU 

1EH 

—00 IF 

36 

US 

EQU 

1FH 

-0020 

37 

SPACE 

EQU 

20H 

-007F 

38 

DEL 

EQU 

7FH 


A A 

A B 

A C 

A D 

A E 

A F 

A 0 

A H 

A I 

A J 

A K 

A L 

A M 

A N Trailing is to prvvvnt keyword clash 

A 0 Trailing ' is to prevent keyword clash 

A P 

A Q 

A R 

A B 

A T 

A U 

A V 

A W 

A X 

A Y 

A Z Trailing is to prevent keyword clash 

Trailing is to prevent keyword clash 
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40 


INCLUDE PEG: CRT. E 


41 

l 




42 

l CRT 

DEVICE 

EQUATES 


43 

I 



-0000 

44 

ME MB EG 

EQU 

OOOOH 

-07FF 

43 

MEMEND 

EQU 

07FFH 

-0000 

46 

PHNBEO 

EQU 

0800H 

-OFFF 

47 

PHNEND 

EQU 

OFFFH 

-lOOO 

48 

MBCINP 

EQU 

IOOOH 

-1010 

49 

GRJBLU 

EQU 

101 OH 

-1020 

30 

0RJ2RN 

EQU 

1 02 OH 

-1030 

31 

0R_RED 

EQU 

1030H 

-1800 

32 

ATTLAT 

EQU 

10OOH 

-1810 

33 

CRT ADR 

EQU 

101OH 

-1811 

34 

CRT8TA 

EQU 

181 1H 

-1012 

33 

WRTREO 

EQU 

1B12H 

-1813 

36 

RD_RE0 

EQU 

1813H 

-1820 

37 

MSCOUT 

EQU 

1820H 

-COOO 

30 

GRASEG 

EQU 

OCOOOH 

— CBOO 

39 

CRB5E0 

EQU 

OC0OOH 

— DOOO 

60 

ORCBEO 

EQU 

ODOOOH 

-4000 

61 

BCRLEN 

EQU 

04000H 

-0020 

62 

LINLEN 

EQU 

43 

-003C 

63 

BLNLEN 

EQU 

92 


64 

1 




63 

1 CRTC 

REOISTER EQUATES 


66 

» 



-0000 

67 

HZTCHR 

EQU 

OOH 

-0001 

68 

HZDCHR 

EQU 

Olll 

-0002 

69 

HZSPOS 

EQU 

02H 

-0003 

70 

SYNWID 

EQU 

03H 

-0004 

71 

VRTROW 

EQU 

04H 

-0003 

72 

VRADJL 

EQU 

03H 

-0006 

73 

VRDROW 

EQU 

06H 

-0007 

74 

VRBPOQ 

EQU 

07H 

— OOOB 

73 

MODCTL 

EQU 

OBH 

-0009 

76 

SCNLN3 

EQU 

09H 

— OOOA 

77 

CURSTR 

EQU 

OAH 

-OOOB 

70 

CUREND 

EQU 

OBH 

-OOOC 

79 

DISSTH 

EQU 

OCH 

— OOOD 

80 

DISSTL 

EQU 

ODH 

— OOOE 

81 

CURPSH 

EQU 

OEH 

— OOOF 

82 

CURPBL 

EQU 

OFH 

-0010 

83 

LPENHI 

EQU 

10H 

-0011 

04 

LPENLO 

EQU 

11H 


83 

f 




86 

l CRT BIT EQUATES 


87 

1 



-0040 % 

88 

CDSPEN 

EQU 

0 1 OOOOOOB 

-0080 

89 

CINTEN 

EQU 

1 OOOOOOOB 

-1300 

90 

CINT1M 

EQU 

1300H 

-0020 

91 

CRTVBL 

EQU 

00 1 OOOOOB 


l BE01NNIN0 OF CRT MEMORY 
I END OF CRT MEMORY 
I BEGINNING OF PHANTOM MEMORY 
» END OF PHANTOM MEMORY 
I MISC. INPUT BUFFER 
l GRAPHICS BLUE PALETTE 
l GRAPHICS GREEN PALETTE 
l GRAPHICS RED PALETTE 
l ATTRIBUTE LATCH 
• CRTC ADDRESS REGISTER 
I CRTC STATUS REGISTER 
I CRTC WRITE REOISTER 
I CRTC READ REGISTER 
l MISC. OUTPUT REOISTER 
l GRAPHICS BANK A ADDRESS 

l GRAPHICS BANK B ADDRESS 

« GRAPHICS BANK C ADDRESS 

I LENGTH OF GRAPHICS MEMORY IN WORDS 
I GRAPHICS LINE LENGTH IN WORDS 
l GRAPHICS LINE LENGTH IN BYTES 


• HORIZONTAL TOTAL CHARS. 

I HORIZONTAL DISPLAYED CHARS. 

I HORIZONTAL SYNC POSITION 
I VBYNC WIDTH. HBYNC WIDTH 
I VERTICAL TOTAL ROWS 
I VERTICAL ADJUBT LINES 
i VERTICAL DISPLAYED ROWS 
I VERTICAL SYNC POSITION 
I MODE CONTROL 
I SCAN LINES PER ROW 
I CURSOR START SCAN LINE 
l CURSOR END SCAN LINE 
l DISPLAY START ADDRESS HIGH 
» DISPLAY START ADDRESS LOW 
» CURSOR POSITION ADDRESS HIGH 
I CURSOR POSITION ADDRESS LOW 
l LIGHT PEN ADDRESS HIGH 
I LIGHT PEN ADDRESS LO 


I CRT DISPLAY ENABLE (ALSO DISABLES INTERRUPT) 
l CRT INTERRUPT ENABLE 
i CRT INTERRUPT WAIT LOOP COUNT 
I CRT IN VERTICAL BLANK PERIOD 
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-0020 

92 

CRTOFF 

EQU 20H 

-OOOF 

93 

HI GHAT 

EQU OFH 


94 

> 



93 

l CHARACTER EQUATES 


96 

1 


— OODB 

97 

BLOCK 

EQU ODBH 


) 
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i CRT DISABLE 

i HIGH BRILLIANCE ATTRIBUTES 


I BLOCK CHARACTER 
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-0000 
-0001 
-0002 
-0003 
-0004 
-0003 
-0006 
-0007 
•0008 
-0009 
— 000A 
-OOOB 
-OOOC 
— OOOD 
— OOOE 
— OOOF 
-0010 
-0011 
•0012 
-0013 
-0014 
-0013 
-0016 
-0017 
-0018 


virilon 10.34.17 


99 

100 

101 

102 

103 

104 
103 
106 

107 

108 

109 

110 

111 

112 

113 

114 
113 
116 
117 
1 IB 

119 

120 
121 
122 

123 

124 
123 
126 
127 


2-Aug-83 16:23:2 

INCLUDE PEG: 


i 


i CRT DSR 

'opco< 

CRTMOD 

EQU 

OOH 

CRTSCT 

EQU 

01H 

CRTSCP 

EQU 

02H 

CRTRCP 

EQU 

03H 

CRTLPP 

EQU 

04M 

CRT6DP 

EQU 

03H 

CRTSUP 

EQU 

06H 

CRTSDN 

EQU 

07H 

CRTRAC 

EQU 

08H 

CRTWAC 

EQU 

09H 

CRTWCH 

EQU 

OAH 

CRTSCP 

EQU 

OBH 

CRTWPX 

EQU 

OCH 

CRTRPX 

EQU 

ODH 

CRTWTY 

EQU 

OEM 

CRTRV8 

EQU 

OFM 

CRTACB 

EQU 

10H 

CRTWCB 

EQU 

11H 

CRTSCA 

EQU 

12H 

CRTCTX 

EQU 

13M 

CRTCGR 

EQU 

14H 

CRTSTY 

EQU 

13H 

CRTSAT 

EQU 

16H 

CRTGDB 

EQU 

I7H 

CRTPTS 

EQU 

1BH 


Page 3 


TOP. EQU 
' <INT 49H ) 

i Set CRT mode function 
i Set cunor tgpe function 
i Set cursor position function 
i Read cursor position function 
i Read light pen position function 
i Set active display page 
i Scroll text up function 
i Scroll test down function 
i Read attribute and character function 
i Write attribute and character function 
i Write character only function 
» Set graphics palette function 
I Write graphics pixel function 
f Read graphics pixel function 
I Write TTY screen output function 
i Read video state function 

i Write attribute and character block function 
i Write character block function 
i Change screen attributes function 
i Clear text screen function 
i Clear graphics screen function 
i Set TTY status line function 
i Set attribute latch function 
i Get physical display begin pointer function 
i Print TTY string function 


■s;"7 
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129 


INCLUDE 

PEG: DSHD IT 


130 




-oooo 

131 

DITDIR 

EOU 

0 

-0004 

132 

DITSEC 

EQU 

4 

-0006 

133 

DITTRK 

EQU 

6 

-0007 

134 

DITCYL 

EQU 

7 

-0008 

133 

DITDSK 

EQU 

8 

-0009 

136 

DITERR 

EQU 

9 

— OOOA 

137 

DITPRC 

EQU 

ID 

— OOOB 

138 

DITLEN 

EQU 

11 


139 




-0000 

140 

DITINV 

EQU 

OOOOh 


i Floppy dill DIT equates 
i Disk Interface Routine vector (duord) 
i Sector site In bytes (word) 
i Track site in sectors fbytel 
i Cylinder site In tracks fbytel 
i Disk site in cylinders fttordl 
i Maximum number of error retries 
« Mrite pre-comp threshold cylinder 
I Length of DIT 

i 

i Used to signal that a DIT is Invalid 
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142 


INCLUDE 

PEC: DSKERR 


143 




-0000 

144 

DKNORM 

EQU 

OOOOOOOOB 

-0000 

143 

DKNRDY 

EQU 

10000000B 

-0040 

146 

DKSEEK 

EQU 

OIOOOOOOB 

-0020 

147 

DKFAIL 

EQU 

00 1 OOOOOB 

-0010 

140 

DKCRCE 

EQU 

0001 OOOOB 

-0008 

149 

DKDMAE 

EOU 

OOOOIOOOB 

-0004 

130 

DKRNFE 

EQU 

00000 IOOB 

-0002 

131 

DKFMTE 

EQU 

0000001 OB 

-0001 

132 

DKCMDE 

EQU 

OOOOOOOi B 

-0003 

133 

DKWPRT 

EQU 

OOOOOOl 1 B 

-0003 

134 

DKVFYE 

EQU 

00000101 B 

-0009 

133 

DKBOUN 

EQU 

0000 100 IB 

-0011 

136 

DKABTD 

EQU 

000 1000 IB 


137 





138 





139 





160 





161 





162 




-0000 

163 

E_NORM 

EQU 

DKNORM 

-0011 

164 

E_ABTD 

EQU 

DKABTD 

-000 i 

163 

E BADC 

EQU 

DKCMDE 

-0004 

166 

E BCYL 

EQU 

DKRNFE 

-0004 

167 

E_BTRK 

EQU 

DKRNFE 

-0009 

160 

EJBOUN 

EQU 

DKBOUN 

-0004 

169 

EJ3SEC 

EQU 

DKRNFE 

-0010 

170 

E_CRC 

EOU 

DKCRCE 

-0080 

171 

E_NRDY 

EQU 

DKNRDY 

-0004 

172 

E RNF 

EQU 

DKRNFE 

-0040 

173 

E_BEEK 

EQU 

DKSEEK 

-0080 

174 

E_TIME 

EQU 

DKNRDY 

-0003 

173 

E VRFY 

EOU 

DKVFYE 

-0003 

176 

E WRPT 

EQU 

DKWPRT 


DISK DSR ERROR CODES < IBM COMPATIBLE) 

No error 

Controller timeout - disk not ready 
Seek failed - track not found 
Controller hardware failure 
CRC error on read 

Data requeit error - controller failure 
Sector not found error 

Timeout - no data error - bad di«k format 

Command error - bad command patted 

Write protect error 

Data verification error 

I/O transfer crottet 64k boundary 

I/O operation aborted by request 

■ > Operation itatua' (error codet) 
Thete valuet are used in the dltk driver and 
are tranilated via equate to the above let of 
error codet for compatibility with the valuet 
uted elsewhere in the tyitem. 

No error 

Ditk I/O aborted by requett 
Bad command 

Non-existent cylinder requeated 

Non— e via tent track requeated 

I/O tranafer erotica 64K boundry 

Non-existent aector requeated 

Bad CRC found 

Device it not ready 

Could not find requeated aector 

Could not find requested cylinder 

Operation did not complete 

Write data did not verify 

Media la write protected 



• MAIN. CRB086/1 1 version 10.34.17 
EQUATE. SRC 


2~Aug~03 16: 23: 2 


Page 6 


-00FF 

170 

179 

180 
181 
182 
183 

OP_NUL 

INCLUDE 

EQU 

PEG. DBKOP 
233 

-0000 

184 

OP_FI 

EQU 

0 

-0001 

183 

0P_A9P 

EQU 

1 

-0002 

186 

OP JEP 

EQU 

2 

-0003 

187 

OP_IR 

EQU 

3 

-0004 

100 

OP_IS 

EQU 

4 

—0003 

189 

OP_IW 

EQU 

3 

-0006 

190 

OP_VFC 

EQU 

6 

-0007 

191 

OP_VFD 

EQU 

7 

-0000 

192 

OP JR 18 

EQU 

8 

-0009 

193 

OP JON 

EQU 

9 

— OOOA 

194 

OP TER 

EQU 

10 


EQU 

l OP_*i« ■) Opcodes for generic disk operations 
i These values are d I ip lac entente In the Device 
I Interface Table to the branch vector for each 
i corresponding routine. 

I Null operation 
i interrupt 

» Auiiliary State Processor 
i Error Recovery Processor 
i Initiate Read 
i Initiate Beet 
i Write 
i Verify CRC 
i Verify data 

i Read and Interpret Status 
I Begin request 
i Process request termination 
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196 INCLUDE PEO: DSKOPS. EQU 

197 


-0000 

190 

DKRSET 

EQU 

0 

-0001 

199 

DK9TAT 

EQU 

1 

-0002 

200 

DKREAD 

EQU 

2 

-0003 

201 

DKWRIT 

EQU 

3 

-0004 

202 

DKVERF 

EQU 

4 


203 

1 DKFORM 

EQU 

9 

-0006 

204 

DKVRFY 

EQU 

6 

-0007 

209 

DKSSTA 

EQU 

7 

-0000 

206 

DKFSET 

EQU 

0 

-0009 

207 

DKXBET 

EQU 

9 

— OOOA 

208 

DKRDIT 

EQU 

10 

— OOOB 

209 

DKKMOT 

EQU 

11 

-OOOC 

210 

DKBADC 

EQU 

12 

-OOOC 

211 

DKSETC 

EQU 

12 

— OOOD 

212 

DKABRT 

EQU 

13 

— OOOE 

213 

DKFSTA 

EQU 

14 

— OOOF 

214 

DKBADD 

EQU 

19 


t \ 


i 


I DISK DSR OPERATION CODES 

i Reset disk system* drive parms must be preset 
i Get disk status in (all 
i Read sectors into memory 
i Write memory to disk sectors 
< Verify crc on disk sectors 
i Format track (not implemented) 
i Verify memory against disk sectors 
i Get disk status for preretry (If any) 
i Set UNIT & standard DIT for a drive 
i Set UNIT h DIT address for a drive 
i Return DIT address for drive 
i Turn off Floppy Disk Motors 
i Old >— this Is a bad command 
i Set concurrent mode 
i Abort pending operation 
i Return last full status 
i New >=* this Is a bad command 
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216 


INCLUDE 

PEO: DSKREQ. EQU 





217 




l 

DSKI6R 

request function codes 


21B 

IRQ SEEK EQU 

O 

i 

Seek «H 


•0001 

219 

RQ READ 

EQU 

1 

i 

Read 


•0002 

220 

RO__WR IT 

EQU 

2 

l 

Write 


-0003 

221 

RQ_VFC 

EQU 

3 

1 

Ver 1 f g 

CRC 

-0004 

222 

RQ VFD 

EQU 

4 

1 

Ver 1 fg 

data 

-0004 

223 

RQ MAX 

EQU 

4 

l 

Mail mum request number 
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229 


226 

-OOFF 

227 

-0000 

228 

-0001 

229 

-0002 

230 

-0003 

231 

-0003 

232 


233 


2-Aug-83 16:23:2 Page 9 

INCLUDE PEQ: DSKSTA.EQU 
i i 

8 J)EP EQU 239 i 

S — IDLE EQU 0 i 

8_MA ! T EQU I i 

S_ISEEK EQU 2 i 

sIdONE EQU 3 i 

8J1AX EQU 3 i 

» i 


- ) Driver states 

Device-dependent code must set state 
Malting for a request 
Malting to retrg a request 
Implicit seek pending 
Operation completed 

The highest **standard M state number 
Other values are device-dependent 
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239 


236 


237 


238 

*0018 

239 

*0019 

240 


241 

-0010 

242 

-ooot 

243 

*0002 

244 

*0006 

249 


246 

-0000 

247 

-0001 

246 

*0002 

249 


290 

-OOFE 

291 

—OOFD 

292 

— OOFB 

293 

-OOF 7 

294 

— OOEF 

299 

— OODF 

296 

-OOBF 

297 

-007F 

298 


299 

-0020 

260 

— OOOA 

261 

— OOOB 

262 
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INCLUDE PEO: INTCTLR.EQU 

f 

l INTERRUPT CONTROLLER EQUATES 


l 




INTAOO 

EQU 

18H 


INTA01 

EQU 

19H 


ICW1 

EQU 

10M 


IC_IW4 

EQU 

01H 


IC SNO 

EQU 

02H 


IC JLTM 

EQU 

06H 


i 

ICW4 

EQU 

OOH 


IC M86 

EQU 

01H 


IC_EOI 

EQU 

02H 


1 

ENABO 

EQU 

111111 10B 

I 

ENAB1 

EQU 

iiiiiioiB 


ENAB2 

EQU 

lllliOUB 


ENAB3 

EQU 

111 101 1 IB 


ENAB4 

EQU 

1 1 101 1 1 IB 


ENAB9 

EQU 

1 101 1 1 1 IB 


ENAB6 

EQU 

iOiiiiiiB 


ENAB7 

EQU 

01 1 1 1 1 1 IB 

« 

I 

EOI 

EQU 

20H 

READIR 

EQU 

OAH 

l 

READI8 

EQU 

OBM 

l 


Interrupt controller ports 

ICW1. 0CW2. 0CW3 l Read IRR# I6R 

0CW1. ICM2, ICW3. ICW4 I Read I HR 

ICW1 bate (written to INTAOO! 

ICW4 needed 

Single 6299 mode (not cascaded! 
Level-triggered mode 

ICW4 base (written to INTA01! 
Microprocessor mode * 6066/63 
Auto End-Of-Interrupt 

Interrupt Masts (written to INTA01 I 


Commands (written to INTAOO! 
Non-specific End-Of-Interrup t command 
Read Interrupt Request Register nest 
Read In-Service Register nest 
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264 


INCLUDE PEO: LATCHES. 

EQU 



263 

« 







266 

i Floppy control and timer 

interrupt latch - 'D6KC P' 


267 

i 






-0001 

268 

SPKREN 

EQU 

01H 


i 

Speaker enable (timerO gate input) 

-0002 

269 

TMR1EN 

EQU 

02H 


i 

Timer 1 interrupt enable 

-0004 

270 

TMR2EN 

EQU 

04H 


i 

Timer 2 interrupt enable 

-0008 

271 

SINGLE 

EQU 

08H 


i 

Single density (FH) (vs. Double - MFh) 

-ooio 

272 

PRECMP 

EQU 

10H 


i 

Write precomp enable (inner tracks only) 

-0020 

273 

SIDE_0 

EQU 

20H 


i 

Head 0 select 


274 

1 





Sector buffer control bits Ml# MO : 

-0000 

273 

ACCBUF 

EQU 

OOH 


i 

Access RAM or reset RAM counter 

-0080 

276 

ACCFDC 

EQU 

BOH 


i 

Access Floppy controller chip 

-0040 

277 

FDCBUF 

EQU 

40H 


I 

Sal.ct FDC — > BUFFER mod. (dltk r.adl 

-OOCO 

278 

BUFFDC 

EQU 

OCOH 


i 

Salact BUFFER — > FDC mod. (dial writ.) 

-FF3F 

279 

MMABK 

EQU 

NOT OCOH 


i 

Mask for setting sector buffer mode 


200 

1 







201 

f Floppy select and motor 

control latch - 'D9KS P' 


202 

i 






— OOOE 

283 

DRSELO 

EQU 

OEH 


1 

Floppy drive selects (Active LOW) 

— OOOD 

204 

DR BEL 1 

EQU 

ODH 




—OOOB 

203 

DRBEL2 

EQU 

OBH 




-0007 

206 

DRBEL3 

EQU 

07H 




-OOIO 

207 

M0TR_0 

EQU 

10H 


1 

Motor On for drive 0 (Note: M0TR_0 It M0TR_1 

-0020 

208 

M0TR_1 

EQU 

20H 


1 

Motor On for drive 1 are OR'd in hardware) 

-0040 

289 

M0TR_2 

EQU 

40H 


1 

Motor On for drive 2 

-0080 

290 

N0TR_3 

EQU 

BOH 


1 

Motor On for drive 3 


291 

f 







292 

i Parallel 

port control 

input port - 'PRCI_P' 


293 

i 






-0001 

294 

DRV6SD 

EQU 

01 H 


1 

Drives are single-sided (vs. double-sided) 

-0002 

293 

DRV48T 

EQU 

02H 


1 

Drives are 4Btpi (vs. 96tpi) 

-0004 

296 

MONTYP 

EQU 

04H 


1 

Monitor type «60HZ system (vs. 30HZ)>> 

-0008 

297 

PARINT 

EQU 

O0H 


1 

Parity interrupt pending 

-OOIO 

298 

PRBUSY 

EQU 

10H 


1 

Parallel port BUSY signal 

-0020 

299 

PRPAPO 

EQU 

20H 


1 

Parallel port PAPER OUT signal 

-0040 

300 

PRSLCT 

EQU 

40H 


1 

Parallel port SELECTED signal 

-0080 

301 

PRFAUL 

EQU 

BOH 


1 

Parallel port FAULT- signal 


302 

1 







303 

f Parallel 

port control 

output 

latch - 'PRCO_P' 


304 

i 






-0001 

303 

LED10F 

EQU 

01H 


1 

LED 1 off \ 

-0002 

306 

LED20F 

EQU 

02H 


I 

LED 2 off > Active LOW 

-0004 

307 

LED30F 

EQU 

04H 


1 

LED 3 off / 

-0008 

308 

PAR IEN 

EQU 

OOH 


1 

Parity interrupt enable 

-OOIO 

309 

PRAUTO 

EQU 

10H 


1 

Parall.l port AUTO FEED- ilgn.1 

-0020 

310 

PRBTRB 

EQU 

20M 


I 

Parallel port STROBE- signal 

-0040 

311 

PRINIT 

EQU 

4 OH 


I 

Parallel port INIT- signal 

-0080 v 

312 

PRINEN 

EQU 

BOH 


I 

Parallel port interrupt enable 
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314 


INCLUDE 

PEQ: PORT ADDR. EQU 




313 

i — : 

I/O port 

atfdrtii*i 



-ooto 

316 

I0B23I 

EQU 

I0H l 

Baca addr of UBART 

<U44) 

-0014 

317 

I0B233 

EQU 

I4H i 

Baca addr of Timar Chip 

1U43I 

— 0018 

310 

108239 

EQU 

IBH l 

Baca addr of Interrupt Controller 

(U46) 

-0020 

319 

FDC 

EQU 

20H i 

Baca addr of Floppy Controller 

IUI3I 


320 

l 





-OOOO 

321 

DBKC__P 

EQU 

OOH 1 

Floppy control and tieiar Intr. latch 

IU47 ) 

-0001 

322 

PRC I _P 

EQU 

OIH 1 

Parallal port control Input port 

1U4B1 

-0002 

323 

PRDA_P 

EQU 

02H 1 

Parallel port data output latch 

<U49> 

-0003 

324 

PRCO P 

EQU 

03H i 

Parallal port control output latch 

CU30I 

-0004 

323 

DSKB P 

EQU 

04M i 

Floppy calact and motor control latch 

CU3I1 
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327 


INCLUDE 

PEG: FLOPPY. EQU 





328 

1 







329 

i DISK CONTROLLER EQUATES 





330 

i 






-0020 

331 

FDCCMD 

EQU 

FDC+O 

< Command port 



-0020 

332 

FDCBTA 

EQU 

FDC+O 

i Status register 



-0021 

333 

FDCTRK 

EQU 

FDC + 1 

i Track register 



-0022 

334 

FDC8EC 

EQU 

FDC +2 

i Sector register 



-0023 

333 

FDCDAT 

EQU 

FDC+3 

i Data register 



-0020 

336 

SECBUF 

EQU 

FDC+O 

i Sector buffer read/wrlte port 


*0022 

337 

RSTBUF 

EQU 

FDC+2 

i Reset sector buffer port 




33B 

1 






-0000 

339 

8TPBPD 

EQU 

OOH 

f Trac k-to-trac k step speed: 

00 — > 

6 msec 


340 

i 




01 — > 

12 msec 


341 

i 




02 — > 

20 msec 


342 

i FDC 

Commends: 


03 -- > 

30 msec 


343 

i 






-0000 

344 

RDCMD 

EQU 

OOH 

i Read sector 



— OOAO 

343 

WRTCMD 

EQU 

OAOH 

i Write sector 



-OOOC 

346 

R8TCMD 

EQU 

OCH ♦ BTPSPD 

i Restore (home) 



-00 tc 

347 

SEKCND 

EQU 

1CH + STPBPD 

i Seek w/verifg 



-003C 

348 

STPCND 

EQU 

3CH ♦ BTPBPD 

i Step in tu/vsrifg It update 



*0000 

349 

FORCED 

EQU 

ODOH 

i Forced Interrupt (gets type 

I status) 

-0008 

330 

IMIilNT 

EQU 

0D8H 

i Immediate interrupt 




331 

i 







332 

i FDC 

end Disk 

DSR internal error codes: 




333 

i 






-0080 

334 

NRYERR 

EQU 

OOH 

i Not ready error 



-0040 

333 

WRPERR 

EQU 

40H 

i Write protect error 



-0020 

336 

FMTERR 

EQU 

20H 

■i Disk format error (timeout 

w/d i sk 

in drive) 

-0010 

337 

SNFERR 

EQU 

I OH 

i Sector not found error 



-0008 

338 

CRCERR 

EQU 

08H 

i CRC error 



-0004 

339 

DATERR 

EQU 

04H 

i Lost data error 



-0002 

360 

6EKERR 

EQU 

02H 

i Seek error (contrived - not 

an FDC 

error ) 

-0001 

361 

VFDERR 

EQU 

01H 

i Data verification error 
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-01F0 

-OIFC 

-OIFE 


363 • INCLUDE PEQ: BYBCELL. EQU 

364 i SYSTEH CELL OFFSETS 

363 i 

366 i THo 'Bystam Coll' is on arts of the boot soctor rncrvfd for lyitin 

367 « configuration and idant i f i ca t ion information. Thasa locations ara 

368 i dafinad as offsats from BOOTLO. 

369 i 

370 0Y8CEL EQU IF OH i Baginning of systam call araa 

371 BOOTID EQU 1FCH » Offsat of boot id word 

372 BOOCRC EQU 1FEH i Offsat of boot sactor CRC 


% 
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374 


INCLUDE 

PEG: BYSCON. EQU 



373 

i Primary System Configuration word 

( BYSCON* accessed with INT 4FH) 


376 

i NOTE: Several routines take advantage of the knowledge of which byte 


377 

i 

the bits are in and that the DRi* SCi« and ORi bits are adjacent. 

-OOOF 

378 

DRVMSK 

EQU 

0000000000001 11 IB 

i Disk drive status bit mask 

-0001 

379 

DR OMSK 

EQU 

000000000000000 1 B 

i Floppy drive 0 installed (internal) 

-0002 

300 

DR1MSK 

EQU 

OOOOOOOOOOOOOO 1 OB 

i Floppy drive 1 installed (internal) 

-0004 

301 

DR2MSK 

EQU 

0000000000000 1 OOB 

i Floppy drive 2 installed (unused) 

— OOOB 

302 

DR3MSK 

EQU 

000000000000 1 OOOB 

i Floppy drive 3 installed (unused) 

-0010 

303 

E 1 2MSK 

EQU 

00000000000 1 OOOOB 

l 'E1-E2' jumper 

-0020 

304 

E34MSK 

EQU 

OOOOOOOOOO 1 OOOOOB 

I 'E3-E4' jumper 

-0040 

303 

E36MSK 

EQU 

OOOOOOOOO 1 OOOOOOB 

i 'E3-E6' jumper 

-0080 

306 

WINMSK 

EQU 

00000000 1 OOOOOOOB 

i Winchester controller installed 


387 

i (high 

byte): 



-0100 

388 

BC1MSK 

EQU 

0000000 1 OOOOOOOOB 

i Serial Channel 1 installed 

-0200 

309 

SC2MSK 

EQU 

000000 1 OOOOOOOOOB 

i Serial Channel 2 installed 

-0400 

390 

BC3MSK 

EQU 

00000 1 OOOOOOOOOOB 

1 Serial Channel 3 installed 

-OBOO 

391 

SC4MSK 

EQU 

0000 1 OOOOOOOOOOOB 

i Serial Channel 4 installed 

-7000 

392 

ORPMBK 

EQU 

01 1 1000000000000B 

i 3-bits: graphics planes installed 

-1000 

393 

GRAMSK 

EQU 

OOOIOOOOOOOOOOOOB 

1 Graphics RAM bank A installed 

-2000 

394 

GRBMBK 

EQU 

00 1 OOOOOOOOOOOOOB 

i Graphics RAM bank B installed 

-4000 

393 

GRCMSK 

EQU 

0 1 OOOOOOOOOOOOOOB 

i Graphics RAM bank C installed 

-0000 

396 

GAHMSK 

EQU 

1 OOOOOOOOOOOOOOOB 

i Game/clock board installed 


397 

i (high 

byte of 

EXTWD1): comm boards 


-lOOO 

398 

M103P1 

EQU 

000 1 OOOOOOOOOOOOB 

I 300 bps Modem port 1 installed 

-2000 

399 

M103P2 

EQU 

00 1 OOOOOOOOOOOOOB 

i 300 bps Modem port 2 installed 

-4000 

400 

M103P3 

EQU 

0 1 OOOOOOOOOOOOOOB 

1 300 bps Modem port 3 installed 

-0000 

401 

M103P4 

EQU 

1 OOOOOOOOOOOOOOOB 

1 300 bps Modem port 4 installed 

-0100 

402 

M212P1 

EQU 

OOOOOOO 1 OOOOOOOOB 

i 1200bps Modem port 1 installed 

-0200 

403 

M212P2 

EQU 

OOOOOO 1 OOOOOOOOOB 

l 1200bps Modem port 2 installed 

-0400 

404 

M212P3 

EQU 

OOOOO 1 OOOOOOOOOOB 

i 1200bps Modem port 3 installed 

-0000 

403 

M212P4 

EQU 

0000 1 OOOOOOOOOOOB 

i 1200bps Modem port 4 installed 


406 

i (low 

byte of 

EXTUD1): speech boards 


-0001 

407 

PBPBOO 

EQU 

OOOOOOOOOOOOOOO l B 

i Speech board 0 Installed 

-0002 

408 

PSPBOl 

EQU 

OOOOOOOOOOOOOO 1 OB 

i Speech board 1 installed 

-0004 

409 

PBPB02 

EQU 

OOOOOOOOOOOOO 1 OOB 

I Speech board 2 installed 

-0000 

410 

PBPB03 

EQU 

OOOOOOOOOOOO 1 OOOB 

i Speech board 3 installed 

-OOIO 

411 

P6PB04 

EQU 

OOOOOOOOOOO 1 OOOOB 

I Speech board 4 installed 

-0020 

412 

PBPB03 

EQU 

OOOOOOOOOO 1 OOOOOB 

» Speech board 3 installed 

-0040 

413 

PBPB06 

EQU 

OOOOOOOOO 1 OOOOOOB 

i Speech board 6 installed 

-0000 

414 

m t m 

PBPB07 

EQU 

00000000 1 OOOOOOOB 

i Speech board 7 installed 


416 

• 

i Secondary System Configuration words (accessed with INT 48N) 


S 1 / 
418 

« 

i SYSCO! (In 

Interrupt Vector area): 


-0001 

419 

I07MSK 

EQU 

OOOOOOOOOOOOOOO 1 B 

f 8087 Numeric Coprocessor installed 


420 

i 





421 

i 9YBC02 ( in 

Interrupt Vector area): 


% 

422 

i DRVBYT ( in 

Interrupt Vector area): 



423 

1 





424 
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426 


INCLUDE 

PEO: TIHE1 


427 

f 




42B 

• TIHER CHIP 

EQUATES 


429 

i 



-0014 

430 

TIMERO 

EQU 

100293 

-0019 

431 

TIHER 1 

EQU 

100293+1 

-0016 

432 

TIHER2 

EQU 

100293+2 

-0017 

433 

TIHCMD 

EQU 

100293+3 


434 

I 




439 

i Control word format 


436 

i 



-0000 

437 

TC SCO 

EQU 

OOH 

-0040 

430 

TC BCi 

EQU 

40H 

-OOBO 

439 

TC_BC2 

EQU 

BOH 


440 

1 



-0000 

441 

TCJLAT 

EQU 

OOH 

-0020 

442 

TC HSB 

EQU 

20H 

-0010 

443 

TC LBB 

EQU 

10H 

-0030 

444 

TCJWRD 

EQU 

30H 


449 

I 



-OOOO 

446 

TC_MDO 

EQU 

OOH 

-0002 

447 

TC HD1 

EQU 

02H 

-0004 

44B 

TC HD2 

EQU 

04H 

-0006 

449 

TC MD3 

EQU 

06H 

— OOOB 

490 

TC HD4 

EQU 

OBH 

— OOOA 

491 

TC_HD9 

EQU 

OAH 


492 

« 



-ooot 

493 

TC BCD 

EQU 

01H 



I Timar O raad/load addr (Bpaakar baap) 
I Timar 1 raad/load addr (Bystam timar) 
» Timar 2 raad/load addr 
i Command Ragistar 


i Belact countar O 
i Balact countar 1 
« Baiact countar 2 

i Countar latching oparation 
i Raad/load moat significant byt« only 
i Raad/load laaat significant bgta only 
f Raad/load LBB first, than MSB 

i Balact mods O 
i Baiact soda 1 
l Balact mods 2 
l Balact moda 3 
i Balact moda 4 
• Balact moda 9 

i BCD countar moda 
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435 INCLUDE PEG: TIHEVT. EQU 

496 « 

497 i TIMING EVENT OFFSETS 
49B i 


-0000 

499 

IEVLNK 

EQU 

OOH 

i 

Lint pointer 




-0002 

460 

IEVTID 

EQU 

02H 

i 

Task id 




-0003 

461 

IEVFLO 

EQU 

03H 

i 

FI agi 




-0004 

462 

IEVCTR 

EQU 

04H 

i 

Counter 




-0006 

463 

IEVSUB 

EQU 

06H 

i 

Subroutine address 





464 

< 









469 

i Event 

flags 








466 

i 








-0004 

467 

EVTTYP 

EQU 

4 

I 

Event type 

0/1 

m 

Interrupt/Task 

-0009 

468 

EVTACK 

EQU 

9 

I 

Event acknowledged 

0/1 

m 

Yes/No 

-0006 

469 

EVTEXP 

EQU 

6 

i 

Event expired 

0/1 

m 

No/Yes 

-0007 

470 

EVTBTA 

EQU 

7 

i 

Event status 

0/1 

m 

Inactive/Active 


471 
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473 


INCLUDE PEO: VECTOR. EQU 




474 

l ease 


mi 





470 

1 

ANY 

CHANGES MADE TO THIB EQUATE FILE MUST ALSO BE MADE TO sees 


476 

l 

THE 

VECTOR INITIALIZATION 

TABLEB IN THE NODULE 'VECINI *. «••• 


477 

« 

AL80 NOTE THAT C8WRAP CHANGES AFFECT THE MODULE 'BYBORQ'. #•»# 


478 

i eeeei 


• «« 


MM 



479 

• Pegasus 

Interrupt vector 

typa> 


4B0 

i 







481 

l 8088-spec If lc (hardware) Interrupts: 


4B2 

I 






-0000 

483 

ZDVINT 

EQU 


OOH 

9 

Divide-by-xero trap 

-OOOl 

484 

8TPINT 

EQU 


01H 

» 

Single-step trap 

•0002 

480 

NMIINT 

EQU 


02H 

I 

Non-maskable interrupt 

•0003 

486 

BRKINT 

EQU 


03H 

1 

Break (single-byte) software Interrupt 

•0004 

487 

OVFINT 

EQU 


04H 

f 

Overflow trap 


488 

l 






489 

l 

(types 

0BH-1FH reserved 

by INTEL) 


490 

f 

( types 

20H-3FH reserved 

for MBDOS ) 


491 

« 







492 

f Pegasus 

hardware Interrupts: 




493 

I 






-0040 

494 

IROINT 

EQU 


40H 

i 

8209 interrupt 0 (unused) 

-0041 

490 

IR1INT 

EQU 


4 1H 

9 

8209 interrupt 1 (unused) 

-0042 

496 

1R21NT 

EQU 


42H 

f 

8209 Interrupt 2 (unused) 

-0043 

497 

IR3INT 

EQU 


43H 

1 

8209 Interrupt 3 (Timer 1) 

-0044 

498 

IR4INT 

EQU 


44H 

1 

8209 interrupt 4 (unused) 

-0040 

499 

IROINT 

EQU 


40H 

1 

8209 interrupt 0 (Parallel port ACK) 

-0046 

00 O 

1R61NT 

EQU 


46H 

1 

8209 interrupt 6 (Disk controller) 

-0047 

001 

IR7INT 

EQU 


47H 

1 

8209 Interrupt 7 (Keyboard UBART) 


002 

9 







003 

1 ROM 

BIOS 

Interface vectors: 




004 

i 






—0048 

000 

BEL I NT 

EQU 


48H 

1 


-0049 

006 

CRTINT 

EQU 


49H 

9 

Screen I/O 

-004A 

007 

KEYINT 

EQU 


4AH 

9 

Keyboard I/O 

-004B 

008 

PRTINT 

EQU 


4BH 

9 

Parallel port I/O 

-0G4C 

009 

OAMINT 

EQU 


4CH 

9 

Analog Input/Ctocfc I/O 

-0040 

010 

D6KINT 

EQU 


4DH 

9 

Floppy disk I/O 

-004E 

on 

CLKINT 

EQU 


4EH 

9 

Time-of-day clock I/O 

-004 F 

012 

CONINT 

EQU 


4FH 

9 

Bystem configuration 


013 

1 






-0000 

014 

FATINT 

EQU 


OOH 

9 

Fatal error trap 

-0001 

010 

R8TINT 

EQU 


01H 

9 

Restart timing event (Timing services) 

-0002 

016 

CANINT 

EQU 


02H 

9 

Cancel timing event (Timing services) 

-0003 

017 

BVCINT 

EQU 


03H 

9 

SVC Interface subroutine 

-0004 

018 

ACTINT 

EQU 


04H 

9 

Activate Task subroutine 

-0000 

019 

COMPLT 

EQU 


OOH 

9 

Addr for disk I/O completion (concurrent env) 


020 

i 






021 

i Sestets Interface vectors (soft Interrupts): 


022 

i 






-0007 

023 

CMP 1 NT 

EQU 


07H 

9 

CRT character mapping vector 

— 0008 

024 

BLCINT 

EQU 


OBH 

9 

Time slicing* if needed (every 20 msec) 
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*0099 

929 

XITVEC 

EQU 

99M 

-009A 

926 

TIMINT 

EQU 

9AH 

-009B 

927 

MAP I NT 

EQU 

9BH 

-009C 

928 

PAUINT 

EQU 

9CH 

*009D 

929 

PBKINT 

EQU 

9DH 

-009E 

930 

PSCINT 

EQU 

9EH 

-009F 

931 

GUEINT 

EQU 

9FH 


932 

1 




933 

I 

(tgp. 

OEOH rese 


934 

| 




939 

1 FIXED ROM 

DATA AREA 


936 

i 

These 

equates d 


937 

i that must 

be access 


938 

i This data 

is access 


939 

i ROM 

uses a 

'trick ' 


940 

i that the hardware *\ 


941 

i OFFFFFH 1 • 

0) . By 


942 

i CBWRAP (defined bel 


943 

i be 



944 

i 



-0180 

949 

DBADDR 

EQU 

4*60H 

*0182 

946 

DBS I ZR 

EQU 

4*60H+2 

-0184 

947 

D8ADD0 

EQU 

4*61H 

*0186 

948 

DBBIZO 

EQU 

4»61M+2 

*0188 

949 

D6ADD2 

EQU 

4*62H 

*01 BA 

990 

Dssiza 

EQU 

4*&2H+a 

*01 BC 

991 

DBAD04 

EQU 

4«63H 

-01 BE 

992 

DBSIZ4 

EQU 

4#63H*2 

*0190 

993 

DBADD6 

EQU 

4*64H 

*0192 

994 

DBSIZ6 

EQU 

4*64H+2 

-0194 

999 

D6ADD8 

EQU 

4*69H 

*0196 

996 

DSSIZ8 

EQU 

4#69H+2 

-0198 

997 

MEM3IZ 

EQU 

4»66H 

-01 9 A 

998 

INTCTR 

EQU 

4«66H+2 

-01 9B 

999 

DRVBYT 

EQU 

4*66H+3 

-01 9C 

960 

BYBCOl 

EQU 

4*67H 

-019E 

961 

8Y8C02 

EQU 

4«67H*2 


962 

f 



-COOO 

963 

CBWRAP 

EQU 

OCOOOH 
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i Addrtii of common interrupt nit routine 
i Dynamic timing lerviceii if needed ( IOO msec) 
i Keyboard mapping vector 
i Keyboard program pause key vector 
i Keyboard program break key vector 
i Keyboard print screen vector 
i Keyboard queueing vector 


ne the ROM communications area* containing data 
by both the ROM and user/app 1 i cat i on programs, 
from the 'user' program by setting DS ■ O. The 
to get to this data by taking advantage of the fact 
ps' memory addresses (i.e. the address following 
essing relative to CB. and adding the magic numbt 
, the desired data (DBADDR, MEMSIZ, etc.) may 


(WORD) painter to D8 for Bystem ROM (ROMDAT) 
(WORD) site of DB for System ROM (ROMDAT) 
(WORD) pointer to DB for ROM at ROMCOD: OOOO 
(WORD) site of DB for ROM at ROMCOD: 0000 
(WORD) pointer to DB for ROM at ROMCOD: 2000 
(WORD) siie of DB for ROM at ROMCOD: 2000 
(WORD) pointer to DB for ROM at ROMCOD: 4000 
(WORD) site of DB for ROM at ROMCOD: 4000 
(WORD) pointer to DB for ROM at ROMCOD 6000 
(WORD) site of DB for ROM at ROMCOD: 6000 
(WORD) painter to DS for ROM at ROMCOD: BOOO 
(WORD) site of DS for ROM at ROMCOD: BOOO 
(WORD) memory site (number of 16-byte blocks) 
(BYTE) outstanding-interrupt counter (for 09) 
(BYTE) Drive configuration byte 
(WORD) Additional system conf iguration info 
(WORD) Additional system configuration info 


i Magic number which causes CB to wrap to 00000 
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EQUATE. BRC 



969 


INCLUDE 

PEO: WINCH5TR. EQU 



966 

i 

WINCHESTER PORT ADDRESSES AND 

EQUATES 

-0031 

967 

WINRBT 

EQU 

31H l PORT 

FOR WINCH RESET 

-0010 

96B 

WRBTCM 

EQU 

00010000B (RESET WINCHESTER 


969 


END 
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Pag# 1 


-0000 


-oooo 


-06 IB 
— OOOA 
-0028 
-0003 


1 

3 i TITLE - BELDSR - System beeper device service routine * 

4 i ABSTRACT - This module contains the routines that handle the speaker I/O. « 

9 » It includes a user interface as well as routines used internally to « 

6 i the ROM. « 

7 i COMPUTER - BOBB assembly language 1BS01 « 

8 i a The DSR entry was converted to be table driven from the opcodes in order » 


9 i to allow additional calls to be added. The neui opcodes are listed below. « 
11 

12 NAME BELDSR - System beeper device service routine 

13 i 

14 i PUBLIC DEFINITIONS 

19 I 

16 PUBLIC BEEP 

17 PUBLIC BEEPIO 

IB PUBLIC BEEPOF 

19 PUBLIC LBEEP 

20 PUBLIC BBEEP 

21 « 

22 I EXTERNAL REFERENCES 

23 i 

24 SECT ROMDAT 

29 

26 EXTRN BELEVT : WORD 

27 EXTRN DSKC _M: BYTE 

2B SECT ROMCOD 

29 EXTRN ROMTSTlNEAR 

30 EXTRN DELAY NEAR 

31 EXTRN DSPERZ : NEAR 

32 EXTRN MSG: NEAR 

33 EXTRN OCONFG: NEAR 

34 EXTRN GCONF 1 : NEAR 

39 EXTRN RCONFG: NEAR 

36 f 

37 i LOCAL CONSTANTS 

3B f 

39 BELTMR EQU 1 963 

40 BEPLEN EQU 10 

41 LBPLEN EQU 40 

42 SBPLEN EQU 3 

43 i 

44 i EXTERNAL EQU FILES 

49 i 

46 i INCLUDE PEG: LATCHES. EQU 

47 i INCLUDE PEG: PORTADDR. EQU 

4B » INCLUDE PEG: TIMERS. EQU 

49 i INCLUDE PEG: 1 IMEVT. EQU 

90 i INCLUDE PEG: VECTOR. EQU 


i System Bell timing event block 
I RAM copy of disk control port 

i CRC calculatuon routine 
i 1 Millisecond delay subroutine 
i Print error routine 
l Print string routine 
i Get pointer to system configuration 
i Get pointer to system configuration 
i Return Eitra Configuration status 


i 1563 — > BOO Hi for system beeper 
i normal system beep length - 250 msec 
i Long beep » 1 sec 
i short beep - 79 msec 
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0000 ' 
0000 ' 
0001 ' 
0002 ' 
0007' 
OOOA ' 
OOOB ' 

OOOE ' 
OOIO' 
0012 ' 
0014' 
0016' 
0018' 
001A' 


■0000 


231 

232 

233 

234 
233 

236 

237 

238 

239 
260 
261 
262 

263 

264 
263 
266 

267 

268 

269 

270 

271 

272 

273 

274 
273 

276 

277 

278 

279 

280 
281 
282 

283 

284 
283 
286 
287 



CODE SEGMENT 

DEFINITION 

SECT 

ROMCOD 


ASSUME 

CB: ROMCOD 



MODULE ENTRY 

POINT 


BELL Ur BEEPER) DSR - Entry paint for ROM u**r call* - I NT 48H 
INPUT: AH - Function: 

0 - Bound tha baepar for apaciflad tint* (• currant frequency) 

AL “ Beep tima in 23 mi 1 1 1 itcond Incramanti 

1 - Oat baapar itatus* raturnad in 2-flag: 

IF * O If baapar ii currantly anablad 

ZF - 1 if baapar la not anablad (no aound) 

2 - Sat baap fraquancy 

CX - timar valua (aaa routlna haadar for explanation) 

3 - Baapar ON 

4 - Baapar OFF 

3 - Mait aubroutina 

6 - CRC 16 aubroutina ES: BX«data addresa* BP«b lock alia 

DX-returned CRC* ZF-1 if DX-O 

7 - Print maasaga 8F400: 81 tarialnatad by taro. 

8 - Diaplay lyatam arror coda In rag BX 

9 - Oat pointer to ayatam conf Iguration in EQ: BX 

A - Oat pointer to extra ayatam configuration in ES: BX 

B - Return Extra aya conflg. info In AX.BX*CX 
)B - Invalid opcode 
OUTPUT: aa noted above 

USED: AX* CX (aaa Individual routine header*) 

STACK: 14 byte* (BEEPER la wor at-caaa ) 

ASSUME DB: ROMDAT 



288 

BEEP 10 

PROC 

FAR 



FB 

289 


ST I 


mi Interrupt* back on 


IE 

290 


PUSH 

D8 

ill Save uaar'a currant DS 


2E8E IE CIBO 

291 


MOV 

DS* MORD PTR CB: 

DSADDR+CSMRAP i Bat up my 

DB 

E8 001A 

292 


CALL 

DOBEEP 

i Do It 


IF 

293 


POP 

*DS 



CA 0002 

294 


RET 

2 

i «•» RETURN aa* (Simulated 

IRET to pasa 

-OOOC 

293 

JMPTBL 

EQU 

$-2 



004C" 

296 


DM 

OFFSET BEEP ST 

I 1 Baap atatua 


0032 M 

297 


DM 

OFFSET BEEPFO 

i 2 Bat baapar fraquancy 


0062- * 

298 


DM 

OFFSET BEEPON 

i 3 Turn on baapar (doaa not 

go off) 

0070- 

299 


DM 

OFFSET BEEPOF 

i4 Turn off baapar (uaad by 

timer dar) 

0004- 

300 


DM 

OFFSET DELAY 

i3 Delay aubroutina 


0003- 

301 


DM 

OFFSET ROMTST 

i 6 CRC 16 calculation 


0006- 

302 


DM 

OFFSET MSG 

i7 Print maasaga In ROMCOD i 

C9 
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001C' 

0003 M 

303 


DU 

001E ' 

0007 H 

304 


DU 

0020 ' 

0000- 

303 


DU 

0022 ' 

0009- 

306 


DU 


-0010 

307 

JMPT9Z EGU 



300 

1 


0024 * 


309 

DOBEEP PROC 

0024 ' 

08 E4 

310 


OR 

0026 ' 

74 12 

311 


JZ 

002B 9 

8A C4 

312 


MOV 

002A 9 

90 

313 


CBU 

002B # 

D1 EO 

314 


SHL 

002D' 

3C 10 

313 


CMP 

002F 0 

77 1A 

316 


JA 

0031 ' 

93 

317 


XCHG 

0032' 

2EBB 9F OOOC- 

310 


MOV 

0037' 

93 

319 


XCHG 

003B ' 

FF EO 

320 


JMP 



321 

i 




322 

i 

BEEPER - 



323 

i 




324 

i 

INPUT. 



323 

f 




326 

l 

OUTPUT: 



327 

I 

USED: 



32B 

I 

STACK: 



329 


ASSUME 



330 

f 


003A ' 


331 

BEEPER PROC 

003A ' 

3C 00 

332 


CMP 

003C ' 

74 OD 

333 


JZ 

003E ' 

30 E4 

334 


XOR 

0040' 

A3 0000- 

333 


MOV 

0043' 

80 OE OOOO- BO 

336 


OR 

0040' 

E0 0017 

337 


CALL 

004 B ' 

' 

338 

BPRET: 

004B ' 

C3 

339 


RET 



340 

i 




341 

i 




342 

i 

BEEPBT - 



343 

i 




344 

i 

INPUT: 



343 

f 

OUTPUT: 



346 

i 




347 

l 

USED: 



348 

i 

STACK: 



349 


ASSUME 1 


% 

350 

i 


004C ' 


331 

BEEPBT PROC 

004C ' 

F6 06 0002- Ol 

332 


TEST 

0031 ' 

C3 

333 


RET 



334 

1 



OFFSET DSPERZ 
OFFSET CCONFQ 
OFFSET GC0NF1 
OFFSET RCONFG 
JMPTBL 

NEAR 
AH* AH 
BEEPER 
AL. AH 


iB Display system error code 

i9 Get pointer to system configuration 

i A Get pointer to extra system configuration 

iB Return eitra conf igurat ion info 


f Dispatch to function specified by AH 
i AH - 0 

i 

i Convert opcode to jump table indei 
i Make into a word 
i Index into word table 


AL, OFFSET JMPTSZi G: Legal routine? 


JA BPRET i N: Just return 

XCHQ AX.BX i Y: Get routine entry without screwing BX 

MOV BX. WORD PTR CS : JMPTBLC BX 1 i Get routine address 

XCHG AX, BX i 

JMP AX f And go to it 

seeases »#«•**« #«»»•*« *#**«**#•*« eeeeee #*« »**#**««#e eeeeee eeeeee eeeeee eeee* 
BEEPER - Sound the beeper for the specified time (at current frequency) 

INPUT. D8 points to ROMDAT 

AL - Beep time in 23 millisecond increments 
OUTPUT: ** beeeeeep ** 

USED: AX 

STACK: 6 bytes 


NEAR 

AL* 00 I 0: Did the user say 00 7 

BPRET i Y: Then exit without sound 

AH* AH i N: Zero out the high byte 

BELEVT-MEVCTR. AXi Put the count into the event block 

BYTE PTR BELEVT+ IEVFLC, 1 SHL EVTSTA i Set the active flag 

BEEPON i Turn on the beeper 

i **e RETURN *** 


DS points to ROMDAT 

ZF ■ O if speaker is enabled 

ZF - 1 if speaker is not enabled (no sound) 
( none ) 

2 bytes 


NEAR 

DSKC M, SPKREN 


i Look at the speaker bit in memory 
t eee RETURN »** 
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BEEPER - This subroutine is used to set the frequency of the timer 
that drives the beeper speaker. The timer's input frequency is 
1.29 MHi and the value passed in CX is used as a divider for this 
frequency. Por eiample. the system timer (BOO HZ 1 uses a value 
of ( I « 290* 000 Hi / BOO Hi 1 - 1963. Note that the caller's interrupt 
status is preserved. 

INPUT: CX - Frequency 'value' ( 1.29 MHi / CX - true freq. 1 

OUTPUT: (none I 

USED: AL* CX 


STACK: 

ASSUME 


4 bytes 
DS: ROMDAT 





367 

1 — 





0092' 



36B 

BEEPFR PROC 

NEAR 



0092' 

9C 


369 


PU8HF 




0093' 

FA 


370 


CL I 



i i i Protect this 

0094' 

BO 

36 

371 


MOV 

AL. (TC_BC0 

♦ TC_WRD ♦ 

TC_MD3) i«» Bet the timer 

0096' 

E6 

17 

372 


OUT 

TIMCMD. AL 


1 1 i 

009B ' 

BA 

Cl 

373 


MOV 

AL. CL 


ill 1.29 MHi / CX - frequency 

009A ' 

E6 

14 

374 


OUT 

TIMERO. AL 


i i i 

009C ' 

BA 

C9 

379 


MOV 

AL. CH 


1 1 l 

009E ' 

E6 

14 

376 


OUT 

TIMERO. AL 


1 1 i 

0060' 

9D 


377 


POPF 




0061' 

C3 


378 


RET 



• #** RETURN *** 




379 

1 • 








380 

1 

BEEPON - This subroutine is called 

to turn the system beeper on. 




3B1 

1 

Timing 

services typically is used to turn it back off. 




382 

1 

Note that the caller's interrupt status is preserved. 




3B3 

1 








384 

1 

INPUT: DB 

point, to ROMDAT 





389 

I 

OUTPUT: (beeper turned 

on ) 





386 

l 

USED: AL 







387 

1 

STACK: 4 

bytes 






3BB 

nao 


ASSUME CB 

ROMCOD. DS: 

ROMDAT 





Jot 

l “■ 





0062' 



390 

BEEPON PROC 

NEAR 



0062' 

9C 


391 


PUBHF 



i Save interrupt status 

0063 ' 

FA 


392 


CLI 



i Protect this 

0064' 

AO 

0002" 

393 


MOV 

AL. DBKC J1 


i i i Get copy from RAM 

0067' 

OC 

01 

394 


OR 

AL. BPKREN 



0069' 

E6 

00 

399 


OUT 

DSKC_P. AL 


i i i 

006B ' 

A2 

0002" 

396 


MOV 

DSKC J1. AL 


i i i 

006E ' 

9D 


397 


POPF 



ill Interrupts bach on 

006F ' 

C3 


390 


RET 



I *** RETURN »** 


BEEPOF - This subroutine is called by timing services to turn the 
system beeper off. The event obviously has to be (relstarted 
before this can happen. Note that the caller's interrupt 
status is preserved. 


INPUT: DS points to ROMDAT (only because that's where event block is) 
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407 i OUTPUT: (beeper turned off) 

408 I USED: AL 

409 » STACK: 4 bytes 

410 ASSUME CBROMCOD, DS: ROMDAT 




411 

l - 




0070 ' 


412 

BEEPOF PR DC 

NEAR 


0070' 

9C 

413 


PUSHF 


i Save interrupt status 

0071 ' 

FA 

414 


CLI 


f Protect again 

0072' 

AO 0002- 

413 


MOV 

AL. DSKC_M 

i i j 

0073' 

24 FE 

416 


AND 

AL# NOT SPKREN 

i i i Turn speaker off 

0077' 

E 6 00 

417 


OUT 

DSKC_P. AL 

i i i 

0079' 

A2 0002" 

418 


MOV 

D5KC_M. AL 

i i « 

007C ' 

90 

419 


POPF 


ill Interrupts back on 

007D ' 

C3 

420 

in « 


RET 


i aa* RETURN a** 










422 

1 

BEEP - Beep 

the system bell. 

Note the three entry points: 



423 

1 






424 

1 

CALL LBEEP - Appro*. 

1 sec (used for error conditions) 



423 

1 

CALL BBEEP - Appro*. 

73 msec (used for prompting situations) 



426 

1 

CALL BEEP - Appro*. 

230 msec (normal bell) 



427 

« 






428 

f 

INPUT: (none) 




429 

l 

OUTPUT: aaa 

BEEP a*# 




430 

1 

USED: AX 





431 

1 

STACK: 14 

bytes 




432 

433 

l - 

ASSUME CB: 

ROMCOD. DB: ROMDAT 



007E ' 



434 

LBEEP 

PROC 

NEAR 



007E ' 

B4 

2B 

433 


MOV 

AH, LBPLEN 

l 

Set up for long beep 

0080' 

EB 

06 

436 


JMP 

SHORT BEEP 1 






437 

« 





0082' 



438 

BBEEP 

PROC 

NEAR 



0082' 

B4 

03 

439 


MOV 

AH. SBPLEN 

l 

Set up for short beep 

0084' 

EB 

02 

440 


JMP 

SHORT BEEP 1 






441 

1 





0086' 



442 

BEEP 

PROC 

NEAR 



0086' 

B4 

OA 

443 


MOV 

AH, BEPLEN 

l 

Set up for normal beep 




444 

l 

JMP 

SHORT BEEP 1 



0088' 



443 

BEEP 1 : 





0088' 

IE 


446 


PUSH 

DS 

l 

5ave DS of caller 

0089 ' 

2EBE IE C1B0 

447 


MOV 

DS, WORD PTR C5: 

DSADDR+CSURAP i Set up my DS 

OOBE' 

31 


448 


PUSH 

CX 



008F ' 

B9 

061 B 

449 


MOV 

CX, BELTMR 

l 

1.25 MHi / BELTMR - frequency 

0092' 

E 8 

FFBD 

430 


CALL 

BEEPFQ 

i 

Set the beep frequency 

0093' 

39 


431 


POP 

CX 



0096' 

8 A 

C4 

452 


MOV 

AL, AH 



0098' 

EB 

FF9F 

453 


CALL 

BEEPER 

i 

Turn the beeper on 

0098 ' 

IF 


434 


POP 

D5 



009C ' 

C3 


433 


RET 


l 

aaa RETURN a** 


436 9 

437 END 


Nr» prr 


rfpf-pr 
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-FFFF 


-0000 


-0000 


2 i TITLE - CLKDSR - Time-of-day clock I/O and service routine 

3 i ABSTRACT — This module contains the time-of-day clock routinesi the 

4 i setting and reading routines* as well as the servica routine which 

3 I is called every 100 milliseconds by the timer interrupt service 

6 i routine to keep the T. O. D. clock ticking. 

7 I 


B 


NAME 

CLKDSR - Time-of-day clock I/O and service routines 


9 

f 

BUBTTL 




11 

DEBUG EQU 

OFFFFH 



12 

i 





13 

i 


PUBLIC DEFINITIONS 



14 

i 





13 


PUBLIC 

CLK_IO 



16 


PUBLIC 

CLKSRV 



17 


PUBLIC 

SEtDAT 



IB 


PUBLIC 

SETTIM 



19 

1 





20 

1 


EXTERNAL REFERENCES 



21 

1 





22 


SECT 

ROMDAT 



23 


EXTRN 

DATE- WORD l Time-of-daij 

clock - days since 1 / 1 /BO ( ROMDAT ) 

24 


EXTRN 

HOURS: BYTE l Time-of-dag 

clock - hours 

(ROMDAT) 

23 


EXTRN 

HUNS: BYTE i Tlme-of-day 

clock - hundredths 

(ROMDAT) 

26 


EXTRN 

MINS: BYTE i Time-of-day 

clock - minutes 

(ROMDAT) 

27 


EXTRN 

SECS: BYTE I Time-of-day 

clock - seconds 

< ROMDAT) 

20 

1 





29 

» 

INCLUDE 

PEO: VECTOR. EQU 



30 

f 





124 






123 

1 IH 





126 

1 


MODULE ENTRY POINT 



127 

1 * J 





120 

1 





129 


SECT 

ROMCOD 



130 


ASSUME 

CB: ROMCOD 



131 

1 





132 

1 

TIME AND DATE ROUTINES - INT 4EH 



133 

1 





134 

1 

INPUT: AH 

- Function: 



133 

1 


0 - Bet the date 



136 

1 


1 - Set the time 



137 

1 


2 - Get the date & time 



13B 

1 


>2 - NULL call 



139 

i 

BX 

- Count of days since January 

1, 1980 


140 

1 

CM 

- Hours (0-23) 



141 

1 

CL 

» Minute* (0-39) 



142 

. » 

DH 

- Seconds (0-59) 



143 

f 

DL 

- Hundredths of seconds (0-99) 



144 

1 

OUTPUT: (depends on function* registers same as above) 


143 

1 

USED: AX*0X*CX,DX 



146 

1 

STACK: 
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147 


ASSUME 

CB: ROMCOD, DS: NOTHING 





140 

l 






0000 ' 



149 

CLK 

_I0 

PROC 

FAR 



0000 ' 

FB 


130 



BTI 


i i 

i interrupts back on 

OOOI ' 

IE 


131 



PUSH D3 

j i 

i save current DS 

0002' 

2E8E IE C 180 

132 



MOV 

DS, WORD PTR CS: 

DSADDR+C5WRAP I point to our DS 

0007' 

33 


133 



PUSH BX 



0008 ' 

0A 

FC 

134 



MOV 

BH, AH 

f 

'opcode' in BH 

OOOA ' 

30 


133 



POP 

AX 

i 

date, if ang. in AX 

OOOB ' 

E8 

0002 

136 



CALL DO_CLK 

i 

do the function 

OOOE ' 

IF 


137 



POP 

DS 



OOOF ' 

CF 


130 



IRET 

i 

a#* RETURN a** 




159 

i 






0010' 



160 

D0_ 

o 

r 

* 

PROC 

NEAR 

i 

dispatch to function specified bg BH 

0010' 

08 

FF 

161 



OR 

BH* BH 

l 

BH - 0 

0012' 

74 

09 

162 



JZ 

SETDAT 



0014' 

FE 

CF 

163 



DEC 

BH 

1 

BH - 1 

0016' 

74 

09 

164 



JZ 

BETTIM 



0018' 

FE 

CF 

163 



DEC 

BH 

i 

BH - 2 

001 A ' 

74 

10 

166 



JZ 

GETDAT 



001C' 

C3 


167 



RET 


1 

*** RETURN *** (Invalid command) 




1 OCT 

| — ■ — 









169 

I 

BET 

THE 

DATE 






170 

1 









171 

1 

INPUT: 

AX ■ Count of dags 

since Januarg 1. 1900 




172 

i 

OUTPUT: 

< none ) 






173 

l 

USED: 

AX 






174 

i 

STACK: 

2 bgtes 






173 


ASSUME 

CB: ROMCOD. DS: ROMDAT 





176 

i 






001 D' 



177 

SETDAT 

PROC 

NEAR 



001 D' 

A3 

ooot- 

178 



MOV 

DATE. AX 

i 

Store the date 

0020' 

C3 


179 



RET 







180 

lot 

i 









lal 










102 

f 

BET 

THE 

TIME 






103 










104 

i 

INPUT: 

CH ■ hours <0-23 ) 


(all numbers are binarg) 




103 

• 



CL ■ minutes (0-59) 






106 

i 



DH « seconds (0-39) 






187 

i 



DL ■ hundredths of 

seconds (0-99) 




100 

1 

OUTPUT: 

(none ) 






189 

i 

USED 

CX. DX 






190 

i 

STACK: 

2 bgtes 






191 


ASSUME 

CB: ROMCOD. DS: ROMDAT 





192 

i 






0021 ' 



193 

SETT I h 

PROC 

NEAR 



0021 ' 

FA 

V 

194 



CL I 


i i 

i hide 

0022' 

80 

2E 0002- 

193 



MOV 

HOURS. CH 

i ) 

i Store the time 

0026' 

80 

OE 0004- 

196 



MOV 

MINS. CL 



002A ' 

08 

36 0003" 

197 



MOV 

SECS, DM 



002E ' 

80 

16 0003" 

190 



MOV 

HUNS. DL 
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0032 ' 

FB 



199 


BT1 



I i i bac k on 

0033 ' 

C3 



200 

nnj 


RET 



i I i *** RETURN *«* 















202 

1 

GET THE 

DATE AND TIME 





203 

l 









204 

1 

INPUT: 

(none! 






209 

1 

OUTPUT: 

AX 

- count of 

days since 01-01-B0 





206 

« 


CM 

“ hour* 






207 

1 


CL 

■ minutes 






20B 

1 


DH 

■ lecondi 






20? 

l 


DL 

■ hundredth* of second* 





210 

1 

USED: 

AX 

iCX. DX 






211 

l 

BTACK: 

2 

huts* 






212 


ASSUME 

C8: ROMCOD, DS: ROMDAT 





213 

f 





0034 ' 




214 

OETDAT PROC 

NEAR 


0034' 

FA 



219 


CLI 



1 1 i 

0039 ' 

At 

0001" 

216 


MOV 


AX » DATE 

ill Oe t the date 

0030' 

BA 

2E 

0002" 

217 


MOV 


CH, HOURS 

i i i Get the time 

003C ' 

BA 

OE 

0004" 

218 


MOV 


CL. MINS 


0040 ' 

BA 

36 

0009" 

219 


MOV 


DH. SECS 


0044 ' 

BA 

16 

0003" 

220 


MOV 


DL. HUNS 


0049' 

FB 



221 


BT1 



ill back on 

004?' 

C3 



222 


RET 



l l l *»# RETURN »»» 















224 

l 

CLKSRV - Time-of-day 

clock service routine. This routine is called 





229 

f 

■v»ry 

100 millisecond* by the system timer Interrupt service 





226 

1 

routine. It update* the time and date Information kept in RAM. 





227 

l 









22B 

« 

INPUT: 

DS 

points to 

ROMDAT 





229 

I 

OUTPUT: 

T- 

o-D info in 

RAM is updated 





230 

i 

USED: 

BX 







231 

» 

BTACK: 

2 

bytes 






232 


ASSUME 


CS: ROMCOD 

. DS: ROMDAT 





233 

• 





004 A' 




234 

CLKSRV PROC 

NEAR 


004 A ' 

FA 



239 


CLI 



I Protect this 

004B ' 

BB 

0003" 

236 


MOV 


BX. OFFSET 

HUNS ill point to time/date storage 

004E' 

BO 

07 

OA 

237 


ADD 


BYTE PTR 

CBXJ# 10 ill bump hundredths 

0091 ' 

BO 

3F 

64 

23B 


CMP 


BYTE PTR 

CBX], 100 mi 9: la It >- 100 7 (- 1 sacondl 

0094' 

72 

27 


239 


JB 


CLKXIT 

ill N: that's all 

0096' 

C6 

07 

00 

240 


MOV 


BYTE PTR 

CBX It 0 ill Y: reset hundredths 





241 

i 





0099' 

43 



242 


INC 


BX 

i i i point to seconds 

009A ' 

FE 

07 


243 


INC 


BYTE PTR 

CBX 1 

009C ' 

80 

3F 

3C 

244 


CMP 


BYTE PTR 

CBXJ. 60 in 0: 60 ? 

009F ' 

72 

1C 


249 


JB 


CLKXIT 

in N: that's all 

0061 ' 

C6 

07 

00 v 

246 


MOV 


BYTE PTR 

CBXJ. 0 ill Y: reset seconds ^ 





247 

« 





0064' 

43 



24B 


INC 


BX 

mi point to minutes 

0069' 

FE 

07 


249 


INC 


BYTE PTR 

CBXJ 

0067 ' 

BO 

3F 

3C 

290 


CMP 


BYTE PTR 

CBXJ. 60 hi 0: 60 ? 
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006A ' 

72 

11 


231 

JB 

006C ' 

C6 

07 

00 

232 

MOV 





233 

1 

006F' 

43 



234 

INC 

0070' 

FE 

07 


233 

INC 

0072' 

80 

3F 

10 

236 

CMP 

0073 ' 

72 

06 


237 

JB 

0077' 

C6 

07 

00 

230 

MOV 





259 

i 

007A ' 

43 



260 

INC 

007B ' 

FF 

07 


261 

INC 

007D ' 




262 

CLKXIT: 

007D ' 

FB 



263 

9TI 

007E ' 

C3 



264 

RET 





263 

i 





266 

END 


No trron detected 
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CLKX1T 

BYTE PTR t BX I# O 


N that's all 
Y: reset minutes 


BX 

BYTE PTR t BX J 
BYTE PTR t BX I# 24 
CLKXIT 

BYTE PTR CBX1.0 


point to hours 

0: 24 7 

N: that's all 

Y: reset hours 


BX 

WORD PTR [BX 1 


point to dags 
bump It 


i i i *** RETURN *** 



CONFIG - Return System Configuration 
CONFIG. SRC 


CR8006/I1 version 10.34.17 


3-Aug-83 16:34 1? 


Page 1 




"'s 


**\ 




-0000 


-0000 


OOOO' 

OOOO ' FB ' 

OOOl' IE 

0002' 2E8E IE Cl 80 
0007' A1 0001” 

OOOA ' 2EBB IE Cl 98 


1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

120 

121 

122 

123 

124 
123 
126 

127 

128 

129 

130 

131 

132 

133 

134 
133 

136 

137 
130 

139 

140 

141 

142 

143 

144 
143 


TITLE — CONFIG - Return system configuration 

ABSTRACT - This routine is a ROM function (software interrupt) that 
returns the current system configuration* as determined during 
pouierup ini t ial i tat i on. 


NAME CONFIG - Return System Configuration 
BUBTTL 

PUBLIC DEFINITIONS 

PUBLIC CFG_IO 
PUBLIC GCONFG 
PUBLIC GCONF 1 
PUBLIC RCONFG 


EXTERNAL REFERENCES 

SECT ROMDAT 

EXTRN SYSCON: WORD i System configuration storage 


LOCAL CONSTANTS 


INCLUDE PEG: VECTOR. EQQU 


CODE SEGMENT DEFINITION 

SECT ROMCOD 

ASSUME CB: ROMCOD, D3: ROMDAT 


MODULE ENTRY POINT 


CFQ_IO - Returns the system configuration word and contiguous memory 
size in 16-byte blocks. 

INPUT: (none) 

OUTPUT: AX - (SYSCON) - System conf iguration word 

BX - (MEMSIZ) - Contiguous RAM in 16-byte blocks 
USED: AX, BX 

STACK: 


CFO_IO PROC FAR 

ST I i Interrupts back on 

PUSH DB 

MOV DS, word ptr CS: DBADDR+CSWRAP I Point to ROMDAT 

MOV AX, SYSCON i Pick up config word 

MOV BX,word ptr CS: MEMS I Z+CSWRAP i Pick up memory size 
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000F ' IF 
0010' CF 


0011 ' 

0011' BB 0001“ 
0014' IE 
0013' 07 

0016' C3 


0017' 

0017' 31 DB 

0019' BE C3 
001 B ' BB 019B 
00 IE ' C3 


146 POP DB 

147 IRET 

148 i 

130 i OCONFO - Returns a pointer to sgstem configuration word and other useful 

131 i information. Called NEAR from general RON I/O handler in BELDSR. 

132 i 

133 i INPUT: (none) 

134 i OUTPUT: ES: BX - pointer to system configuration info 

133 i EBtBX-33 - D5KC_M copy of DSKC_P latch 

136 i EB: CBX-23 - PRCO__M copy of PRCO_P latch 

137 i ES tBX-lJ « DSKS_M copy of DSKS_P latch 

138 f 

139 i USED: BX.ES 

160 i STACK: 

161 • * 

162 OCONFO PROC NEAR 

163 MOV BX. offset SYSCON 

164 PUSH DS 

163 POP ES 

166 RET 

167 i a****************************** 

168 i 0C0NF1 - Returns a pointer to other system information. 

169 i Called NEAR from general ROM I/O handler in BELDSR. 

170 » 

171 i INPUT: 

172 i OUTPUT 

173 i 

174 i 

173 i 

176 I 

177 i 

178 I USED: 

179 • STACK: 

180 l 

181 GC0NF1 PROC NEAR 

182 XOR BX. BX I Set up segment of config area 

183 MOV ES. BX 

184 MOV BX. offset DRVBYT I Offset of config area 

183 RET 

187 i RCONFG - Return extra system configuration information in registers. 

188 i Called NEAR from general ROM I/O handler in BELDSR. 

189 i 

190 i INPUT: (none) 

191 i OUTPUT: AL - DRVBYT - Drive type byte 

192 i AH " INTCTR - Pending interrupt count (not very useful) 

193 i BX " SYSC01 - Extra system configuration word 41 

194 i CX » SYSC02 - Extra system configuration word 42 

193 i USED: AX. BX. CX 

196 i STACK: 

197 1 


( none ) 

ES: BX - pointer to additional system configuration info 

ES: CBX-33 - (MEMSIZ) - Bile of memory in 16 byte words (word) 

ES: C BX — 1 1 ■ (INTCTR) - Pending interrupt count (byte) 

EB: tBX+03 - (DRVBYT) - Drive type byte 

ES:CBX+11 " ( SYSC01 ) - Additional system configuration byte 

EB: CBX+2J *» ( BYBC02 ) - Additional system conf i gura t i on word 

BX. ES 


1 point to config area (OFFSET) 
1 and set up segment 
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OOIF # 



19B 

RCONFO PROC 

NEAR 







OOIF 9 

2EA1 

C 19A 

199 

NOV 

AX* word 

p tr 

CB: INTCTR+CBWRAP 

« 

Pick 

up INTCTR 

and DRVBYT 

0023 # 

86 C4 

200 

XCHO 

AL. AH 



1 

Put 

in correct 

rag i (tar* 

0023' 

2EBB 

IE C19C 

201 

MOV 

BX* word 

ptr 

CB: BYBC01 ♦CSWR AP 

1 

Pick 

up BYSCOt 


002 A' 

2EBB 

OE C19E 

202 

NOV 

CX. word 

p tr 

CB: BYBC02+CBURAP 

1 

Pick 

up BYSC02 


002F ' 

C3 


203 

RET 











204 

END 









No errors Ifti^til 
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1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 

33 

34 
33 

36 

37 

38 

39 

40 

41 

42 


43 

44 
43 

46 

47 

48 

49 

30 

31 
52 


TITLE - CRT DSR 

COMPUTER - 8088 ASSEMBLY LANGUAGE 

ABSTRACT - This module contains the necessary set of routines needed 

for Interacting with the CRT. The Interface to these routines 
is via a software interrupt ( INT 49H) with the CRT function 
number in register AH. Additional parameters required by each 
function and their register designations are described below 
as INPUT under the given function. 


SET CRT MODE 
AH - OOH 

THIS ROUTINE IS USED TO 9ET THE CRT MODE (NOTE: this is not 

applicable to PEGASUS but is provided for compatibility with 
the IBM CRT calling conventions). IT DOES NOTHING AND SIMPLY 
RETURNS. 

INPUT - AH - 0 

AL ■ 1 -7 (ignored) 

OUTPUT - None 

USED - None 


BET CURSOR TYPE BASED ON REGISTER CX 
AH - 01H 


INPUT - CH 


Bits 4-0 cursor start line ( 0-B hex) 

Bits 6-5 cursor type i.e. 00 * no blink 

01 ■ no cursor 

10 - 1/16 blink 

11 - 1/32 blink 


CL - Bits 
Bits 


4-0 cursor end 
7-3 not used 


line 


(0-B hex) 


OUTPUT - none 


USED - AX, CX, DL 


SET CURSOR AT COLUMN < DH ). ROW < DL ) POSITION 
AH » 02H 

INPUT - DH « X coordinate (column) 

DL “ Y coordinate (row) 
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33 

34 
33 

36 

37 

38 

39 
60 
61 
62 

63 

64 
63 
66 

67 

68 

69 

70 

71 

72 

73 

74 
73 

76 

77 

78 

79 

80 
81 
82 

83 

84 
83 
86 

87 

88 
B9 

90 

91 

92 

93 

94 
93 

96 

97 

98 

99 

' 100 
101 
102 

103 

104 


OUTPUT - CURSOR WRITTEN AT (X.Y) COORDINATES 


READ CURRENT CURSOR POSITION 
AH - 03H 

THIS ROUTINES READS THE CURRENT CURSOR POSITION AND RETURNS 
THE POSITION IN DX AS (COLUMN# ROW) » (X.Y). 

INPUT - NONE 

OUTPUT - DH - (column). DL - (row) 

CH» CL ■ Curior typ« 

USED - DX. CX. AX. BX. 


READ LIGHT PEN POSITION 
AH - 04H 

THIS ROUTINE READS THE LIGHT PEN AND RETURNS IT'S POSITION 
TO THE CALLER. 

INPUT - NONE 

OUTPUT - RETURN NO ACTION FOR NOW 
USED - 


BET ACTIVE DISPLAY PAGE 
AH - 05H 

THIS ROUTINE SET8 THE ACTIVE DISPLAY PAGE (IT DOES NOTHING) 
AND 16 PROVIDED FOR IBM COMPATIBILITY ONLY. 


SCROLL TEXT BLOCK UP 
AH = 06H 

SCROLL TEXT BLOCK DOWN 
AH - 07H 


THIS ROUTINE "SCROLLS" THE SCREEN IN EITHER DIRECTION BY 
SIMPLY PERFORMING A MOVS FROM THE SOURCE TO THE DESTINATION 
LOCATION OF THE SCREEN. THIS METHOD PROVIDES FOR DEFINING 
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103 

106 

107 

100 

109 

110 
111 
112 

113 

114 
113 
116 
117 
110 

119 

120 
121 
122 

123 

124 
123 
126 

127 

128 

129 

130 

131 

132 

133 

134 
133 

136 

137 

130 

139 

140 

141 

142 

143 

144 
143 

146 

147 
140 

149 

150 

131 

132 

133 
154 
133 
136 


A WINDOW AND hOVINO IT TO ANOTHER POSITION ON THE SCREEN. 

THE SOURCE WINDOW BOUNDARY COORDINATES ARE AO FOLLOWS AND 

THE SAME APPLIES FOR THE DESTINATION COORDINATES: 

Upper lift ■ lire. col. * ire row) 

Upper right ■ lire. col. + col. cnt.*src. row) 

Lower left - lire, col.* ire. row + line cnt.) 

Lower right ■ I ere. col. + col. cnt.* ere. row + line cnt.) 

INPUT - AL « O blent out eource text 
# AL ) O Don't blent lource 
e» (DM, DL) ■ 16ource column* Source row) of icroll 

I BH* BL ) ■ (Destination column* Destination row) of scroll 
CH ■ Column count! 1-80) CL ■ Line count(l~23) 

* NOTE: If the source and destination windows 

overlap then some of the source will 
be overwritten. 

e» NOTE: If destination is less than source 

then the scroll is a scroll up and 
to the left* if source is less than 
destination then the scroll is a scroll 
down and to the right. 


Example: You want to scroll the screen up "n M 
lines. 

input - source col* row (DH*DL) ■ (0*n) 
dost. col. row (BH, BL) - (0.0) 
column count (CH) ■ 80 
line count (CL) - 23-n 

OUTPUT - NONE 
USED - 


READ CHARACTER AND ATTRIBUTE AT CURRENT CURSOR POSITION 

AH « 08H 

THIS ROUTINE READS AND RETURNS THE CHARACTER AND ATTRIBUTE AT 
THE CURRENT CURSOR POSITION. 

INPUT - NONE 

OUTPUT - AH ■ Attribute of character read 
AL ** chracter read 

USED - AX, 
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137 

138 
13 ? 
160 
161 
163 

163 

164 
163 
166 
167 
16B 

169 

170 

171 

172 

173 

174 
173 

176 

177 

178 

179 

180 
181 
182 

183 

184 
183 
186 
1B7 
188 

189 

190 

191 

192 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 
203 

' 204 

203 
206 

207 

208 


WRITE CHARACTER AND ATTRIBUTE AT CURRENT CURSOR POSITION 

AH - 09H 

THIS ROUTINE 18 USED TO WRITE A CHARACTER AND ASSOCIATED 
ATTRIBUTE AT THE CURRENT CURSOR POSITION. THE USER 9H0ULD 
NOTE THAT THE CURSOR IS NOT AUTOMATICALLY ADVANCED WITH THIS 
ROUTINE. 

INPUT - AL ■ Character to write 

BL ■ Atribute of character 
CX • Count of chars, to write 


OUTPUT - None 
USED - AX# BL* CX 


WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 
AH * OAH 

THIS ROUTINE IS USED FOR WRITING A CHARACTER ONLY AT 
THE CURRENT CURSOR POSITION. IT IS ALSO USED BY THE 
ABOVE PROCEDURE BUT IGNORES THE ATTRIBUTE PARAMETER. 

AGAIN THE USER SHOULD NOTE THAT THE CURSOR IS NOT AUTO- 
MATICALLY ADVANCED AND IS LEFT AT IT'S ORIGINAL POSITION. 

INPUT - AL ■ Character to write 

CX ™ Count of chars, to write 

OUTPUT - None 

USED - AX# CX 


BET GRAPHICS COLOR PALETTE 
AH - OBH 

THIS ROUTINE IS USED TO SET THE COLOR PALETTE FOR THE GRAPHICS 
BANKS A* B» C. 

INPUT - 

OUTPUT - Palette set accordingly 
USED - 
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209 

210 
211 
212 

213 

214 
219 
216 
217 
21B 

219 

220 
221 
222 

223 

224 
229 
226 

227 

228 

229 

230 

231 

232 

233 

234 
239 

236 

237 
23B 

239 

240 

241 

242 

243 

244 
249 

246 

247 
24B 
249 

290 

291 

292 

293 

294 
299 

296 

297 
29B 
299 
260 


WRITE GRAPHICS PIXEL AT (X.Y) LOCATION 
AH - OCH 

THIS ROUTINE 19 USED TO WRITE A GRAPHICS PIXEL AT THE 
SPECIFIED LOCATION. 

INPUT - (To be determined) 

OUTPUT - 

USED - 


READ GRAPHICS PIXEL AT (X.Y) LOCATION 
AH « ODH 

THIB ROUTINE IB USED TO READ A GRAPHICS PIXEL AT THE 
SPECIFIED LOCATION. 

INPUT - (To bo determined ) 

OUTPUT - 

USED - 


ASCII TELETYPE WRITE ROUTINE 
AH * OEH 

THIB ROUTINE IB USED TO WRITE CHARACTERS TO THE BCREEN IN AN 
ASCII TELETYPE MANNER. WRITING STARTS AT THE CURRENT CURSOR 
POSITION AND THE CURSOR IS ADVANCED AUTOMATICALLY TO ITS NEXT 
LOCATION. THE SCREEN IS SCROLLED AUTOMATICALLY IF NEED BE 
(l.o. writing poet the end of screen)* "AND CONTROL CHARACTERS 
ARE EXECUTED (CR.LF. BS end BEL) INSTEAD OF WRITTEN. 

* NOTE: If a statue line ie currently being Imp lamented 

a scroll will occur on the line previous to the 
start of the status region as If that line were 
the end of the screen. 

INPUT - AL * Character to write 

OUTPUT - None 

USED - 
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361 

363 

363 

364 
363 

366 

367 
360 

369 

370 

371 
373 

373 

374 
373 

376 

377 
370 
379 
300 
201 
202 

203 

204 
203 
206 

287 

288 
209 

290 

291 

292 

293 

294 
293 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 
313 


CURRENT VIDEO STATE 
AH « OFH 

THIS ROUTINE IS USED TO RETURN THE STATE (or MODE I OF THE 
CRT TO THE CALLER ( NOTE: thii it not applicable to PEGASUS 

but It provided for compatibility with the IBM CRT calling 
convention*). IT DOES NOTH I NO AND SIMPLY RETURNS. 

INPUT - Non* 

OUTPUT - (To be determined) 

USED - 


WRITE BLOCK OF ATTRIBUTES & CHARS t CURSOR 
AH « 10H 

THIS ROUTINE IS USED TO WRITE A GIVEN BLOCK OF CHARACTERS TO 
THE SCREEN STARTING AT THE CURSOR USING THE SPECIFIED ATTRIBUTE. 
ALL CONTROL CHARACTERS (i.*. CR, LF» BEL etc.) ARE IGNORED AS SUCH 
AND PRINTED ON THE SCREEN AS ASCII CHARACTERS. 


INPUT — AL ■ Attribute of character* to write 

DX * Segment location of character block 

BX * Off*et location of character block 

CX « Length of character block (not to eiceed 2000) 

NOTE: Thi* routine doe* not increment the cursor 
location. The caller mu*t be aware of the 
cursor location before using thi* routine 
and make sure that the block will "fit" on 
the screen or he will lose what won't "fit". * 

OUTPUT - Non* 

USED - Non* 

* CX must be ( or * the number of char, positions left on the screen. 

CX (block length) must be < or * 2000-((cur. row - 1 * 80)+cur. col.) 
Attempting to write characters beyond the end of screen will cause 
them to be be lost (not written). 


WRITE BLOCK OF CHARS. ONLY • CURSOR 
AH - UH 

THIS ROUTINE IS USED TO WRITE A GIVEN BLOCK OF CHARACTERS TO 
THE SCREEN STARTING AT THE CURSOR ALL CONTROL CHARACTERS 
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313 

314 

315 

316 

317 
31B 

319 

320 

321 

322 

323 

324 

325 

326 

327 
32B 

329 

330 

331 

332 

333 

334 

335 

336 

337 
33B 

339 

340 

341 

342 

343 

344 

345 

346 

347 
34B 

349 

350 

351 

352 

353 

354 

355 

356 

357 
35B 

359 

360 

361 

362 

363 

364 


Cl. a. CR# LF. BEL ate.) ARE IGNORED A9 BUCM AND PRINTED ON THE 
SCREEN A9 ASCII CHARACTERS. 


INPUT - DX ■ Bagmant location of charactar block 
BX ■ Offtet location of charactar block 
CX ■ Langth of charactar block Cnot to avcaad 2000) 

NOTE: Thia routina doa a not lncramant tha curaor 
location. Tha collar muit ha awara of tha 
curaor location bafora uaing thia routina 
and maka aura that tha block will **fit N on 
tha acraan or ha will loaa what won't "fit". * 
With thia typa of writ# tha charactara will 
taka on tha attributaa of tha laat attributa 
changa. 


OUTPUT - Nona 
USED - Nona 

• CX wuat ba < or ■ tha numbar of char, poaitiona laft on tha acraan. 

CX Cblock langth) muat ba C or * 2000-CCcur. row - 1 * BO)+cur. col.) 
Attampting to writa charactara bayond tha and of acraan will cauaa 
thaw to ba ba loat <not writtan). 


CHANGE ENTIRE BCREEN ATTRIBUTES 
AH - 12H 

THIS ROUTINE CHANGES THE ENTIRE SCREEN ATTRIBUTES 
RIGHT BEFORE YOUR VERY EYES 

INPUT - AL « ATR1BUTE TO USE 

OUTPUT - Nona 

USED - Nona 


CLEAR THE CRT SCREEN MEMORY AND HOME CURSOR 
AH - 13H 

INPUT - Nona 
OUTPUT - Nona 
USED - AX.CX.DL. DI 
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363 

366 

367 
36B 

369 

370 

371 

372 

373 

374 
373 

376 

377 
37B 

379 

380 

301 

302 

303 
384 
303 

306 

307 
300 

389 

390 

391 

392 

393 

394 
393 

396 

397 
390 

399 

400 

401 

402 

403 

404 
403 

406 

407 
400 

409 

410 

411 

412 

413 

414 
413 
416 


CLEAR GRAPHICS MEMORY AND HOME THE PIXEL CURSOR 
AH - I4H 

THIS ROUTINE IB USED TO CLEAR ALL THREE 0RAPHIC9 BANKS AND HOME 
THE PIXEL CURSOR (i.a. place cursor at (0.0) ). 

INPUT - Nona 

OUTPUT - Non# 

USED - 


BET TTY STATUS LINE. 

AH 05 13H 

THIS ROUTINE IS USED TO DEFINE THE STARTING LINE OF THE STATUS 
REGION. IT IB ASSUMED THAT THIS LINE THROUGH THE END OF THE 
SCREEN IB RESERVED FOR STATUS IMFORMATION. WHEN USING THIS IN 
CONJUNCTION WITH A TTY WRITE THE END OF SCREEN FOR THE TTY ROUTINE 
IB SET AT THE BTATUS LINE MI NUB ONE. 

INPUT - CH - O (always) 

CL ■ Start lina number of status lina (0-24 decimal) 

NOTE: CH must always ba zaro. This represents 
tha first column of th# status lina. 

If an attampt is made to sat a status 
lina which falls prior to th# currant 
lina of tha cursor than no status lina 
is imp 1 amantad. 

CX ■ O ■ Full scratn TTY.. 

OUTPUT - Non# 

USED - Nona 


BET ATTRIBUTE LATCH 
AH * 16H 

THIS ROUTINE IS USED TO WRITE THE ATTRIBUTE LATCH WITHOUT 
HAVING TO WRITE A CHARACTER. 

INPUT - BL » Attribute to use 

OUTPUT - Latch sat accordingly 
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417 

41B 

419 

420 

421 

422 

423 

424 
429 

426 

427 

428 

429 

430 

431 

432 

433 

434 
439 

436 

437 
43B 

439 

440 

441 

442 

443 

444 
449 

446 

447 
44B 
449 

490 

491 

492 

493 


*»* ITEM9 BELOW THIS LINE WERE ADDED OPCODES IN THE VI. 20 ROH *#e 


OET PHYSICAL DISPLAY BEGIN OFFSET 
AH - 17H 

THIS ROUTINE IS USED TO RETURN THE OFFSET (FROM DEOOH ) OF 
THE PHYSICAL BEGINNING OF DISPLAY. 

INPUT - NONE 

OUTPUT - DX - Display bsgin offset 


PRINT TTY STRING 
AH - 1BH 

THIS ROUTINE IB USED TO PRINT A STRING OF CHARACTERS IN THE 
USERS CB: C GOTTEN FROM THE STACK) WITH A TTY WRITE. 

INPUT - BX ■ Address (offset) of the string 

Where: CBX1 byte O - length of string 

CBX1 byte 1 ■ first char, of string 

OUTPUT - NONE 


NAME CRTDSR (CRT DSR CODE) 

8UBTTL 

DEBUG EQU OFFFFH 
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•OOOO 


-0000 


-0000 


435 

1 







436 

1 


PUBLIC 

DEFINITIONS 



437 

l 







438 

1 







439 


PUBLIC 

CRTOUT 





460 


PUBLIC 

CRT_IO 





461 


PUBLIC 

CRTRET 





462 

l 







463 

1 







464 

l 


EXTERNAL REFERENCES 



463 

1 







466 

1 







467 


SECT 

ROMCOD 





468 

1 







469 


EXTRN 

BEEP: NEAR 

1 

BEEP BELL ROUTINE 


( BELDSR ) 

470 


EXTRN 

INILBT: NEAR 

1 

INIT LOCAL STORAGE 


(CRTTST ) 

471 

1 







472 


SECT 

ROMDAT 





473 

1 







474 


EXTRN 

CURPOS: WORD 

1 

CURSOR POSITION POINTER 

(ROMDAT) 

473 


EXTRN 

CURTYP: WORD 

I 

CURRENT CURSOR TYPE 


< ROMDAT) 

476 


EXTRN 

THSLIN: WORD 

1 

CURRENT LINE POINTER 


(ROMDAT) 

477 


EXTRN 

DISBEO: WORD 

1 

CURRENT DISPLAY BEGIN 

POINTER (ROMDAT) 

470 


EXTRN 

DISEND: WORD 

l 

CURRENT DISPLAY END POINTER 

< ROMDAT) 

479 


EXTRN 

CRTCNT : WORD 

1 

CURRENT CHARS ON LINE 

COUNT 

< ROMDAT ) 

400 


EXTRN 

BTATLN: WORD 

i 

STATUS LINE BEGINNING 


« ROMDAT ) 

481 


EXTRN 

RETFLO: BYTE 

l 

LOCAL RETURN FLAG 


(ROMDAT) 

402 


EXTRN 

CRTHLD: BYTE 

1 

PAU5E STATUS BYTE 


(ROMDAT) 

403 


EXTRN 

ATT5AV: BYTE 

I 

ATTRIBUTE LATCH SAVE 


(ROMDAT) 

404 

i 







403 

1 4H 







406 

I 


LOCAL 

CONSTANTS 




407 

1 







488 








489 

1 

INCLUDE 

PEQ: ASCII.EGU 





490 

1 

INCLUDE 

PEG: CRT.EQU 





491 

1 

INCLUDE 

PEG: VECTOR. EQU 





492 

1 







602 

1 







603 

1 







684 

1 


LOCAL 

MACROS 




603 

1 4H 







606 

1 







687 

1 







688 


SUBTTL 

MAIN 





689 

1 







690 

1 


MODULE 

ENTRY POINT 



691 

1 







692 

1 







693 

1 

CRT 10 - IN? 49M 





694 

I 







693 


SECT 

ROMCOD 
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696 


AS9UME 



697 

l 


0000 ' 


690 

CRT_IO 

PROC 

OOOO' 

FB 

699 


ST I 

0001 ' 

FC 

700 


CLD 

0002 ' 

EB 0033 

701 


CALL 

0003 ' 

CF 

702 


IRET 



703 

i 


0006 ' 


704 

CRTABL 

LABEL 

0006 ' 

0066" 

703 


DW 

0008 ' 

0073" 

706 


DW 

OOOA ' 

007F" 

707 


DW 

OOOC' 

OOBO" 

708 


DW 

OOOE ' 

0066" 

709 


DW 

0010' 

0066" 

710 


DW 

0012' 

OOC 3 " 

711 


DW 

0014' 

OOC3" 

712 


DW 

0016' 

OIB?" 

713 


DW 

0018' 

O1C0" 

714 


DW 

001 A ' 

01CD" 

713 


DW 

001C' 

0066" 

716 


DW 

001E ' 

0066" 

717 


DW 

0020' 

0066" 

718 


DW 

0022' 

0218" 

719 


DW 

0024' 

0066" 

720 


DW 

0026' 

039C" 

721 


DW 

0028' 

03A0" 

722 


DW 

002A ' 

03C4" 

723 


DW 

002C ' 

03DB" 

724 


DW 

002E ' 

0403" 

723 


DW 

0030' 

01EF" 

726 


DW 

0032' 

042A" 

727 


DW 

0034' 

0432" 

728 


DW 

0036' 

0439" 

729 


DW 


-0032 

730 

ENDTAB 

EOU 



731 

l 


0038' 


732 

CRTOUT 

PROC 

0038 ' 

37 

733 


PUSH 

0039' 

36 

734 


PUSH 

003A ' 

IE 

733 


PUSH 

0030' 

06 

736 


PUSH 

003C ' 

33 

737 


PUSH 

003D ' 

30 

738 


PUSH 

003E ' 

33 

739 


PUSH 

003F ' 

2E8E IE C 180 

740 


MOV 

0044' 

BB 0000' 

741 


MOV 

0047' 

BE C3 

742 


MOV 

0049' 

3B * 

743 


POP 

004A ' 


744 

HOLDUP : 


004A ' 

BO 3E OOOB" 00 

743 


CMP 

004F ' 

73 F9 

746 


JNE 

0031 ' 

CD 37 

747 


I NT 
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CS: ROMCOD. DS: ROMDAT. ES: CRTDAT 


FAR 

CRTOUT 


I i INTERRUPTS BACK ON 
CLEAR DIRECTION FLAG 
DO IT 

*»* RETURN *** 


WORD 

CRTRET 

STCTYP 

STCPOS 

RDCPOS 

CRTRET 

CRTRET 

SCROLL 

SCROLL 

RATCHR 

WATCMR 

WRTCHR 

CRTRET 

CRTRET 

CRTRET 

WRTTTY 

CRTRET 

WATBLK 

WBLOCK 

CHSCAT 

CLRTXT 

CLRGRP 

SETTTY 

SETATT 

GTDSBO 

PRTTTY 

•-CRTABL 


JUMP TABLE OF CRT FUNCTIONS 
SET 9CREEN MODE (DOES A RETURN) 

SET CURSOR TYPE 

SET CURSOR POSITION 

READ CURSOR POSITION 

READ LIGHT PEN POS. (DOE9 A RETURN) 

SET ACTIVE DISP. PAGE (DOES A RETURN) 

SCROLL UP 

SCROLL DOWN 

READ ATTRIBUTE t CHARACTER ft CURSOR 
WRITE ATTRIBUTE & CHARACTER « CURSOR 
WRITE CHARACTER ONLY d CURSOR 
SET COLOR PALETTE (DOES A RETURN) 
WRITE DOT (DOES A RETURN) 

READ DOT (DOES A RETURN) 

ASCII TELETYPE WRITE 

CURRENT VIDEO STATE 

WRITE BLOCK OF CHARS fc ATTRIBUTES 

WRITE BLOCK OF CHARS ONLY 

CHANGE SCREEN ATTRIBUTES 

CLEAR ALPHA SCREEN 

CLEAR GRAPHICS SCREEN 

BET TTY STATUS LINE 

SET ATTRIBUTE LATCH 

GET DISPLAY BEGIN 

PRINT TTY STRING 

END OF JUMP TABLE 


NEAR 

DI I 

61 i 

DS l 

ES i 

BX f 

AX ) 

BX l 

DS* WORD PTR CS: DGADDR+C6WI 
BX. CRTDAT I 

ES. BX I 

BX f 


SAVE DI 
SAVE SI 
SAVE OLD DS 
SAVE OLD ES 
SAVE BX 
SAVE AX 

SAVE BX (TEMPORARILY) 

IRAP i SET UP DS AS ROMDAT 
SET UP ES 
AS CRTDAT 
RESTORE BX 


CRTHLD. O 
HOLDUP 
CMP I NT 


G: IS BCREEN I/O IN PAUSE STATE 

Y: THEN WAIT TIL IT AIN'T 

N: GO MAP ANY CHARACTERS 
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MAIN CRTDSR.8RC 


* 






0033' 

BA C4 

740 


MOV 

ALt AH 

i 

GET INTO LOW BYTE 


0033 ' 

30 E4 

749 


XOR 

AH. AH 

i 

ZERO TO HIGH BYTE 


0037 * 

D! EO 

730 


SAL 

AX. 1 

9 

WORD OFFSET FOR TABLE LOOKUP 


0039' 

BB FO 

731 


MOV 

81. AX 

9 

BI - OFFSET FOR JUMP 


003B * 

3D 0032 

732 


CMP 

AX. OFFSET ENDTAB 

9 

BEE IF VALID FUNCTION 


003E 9 

30 

733 


POP 

AX 

9 

GET PARAMETER BACK 


003F § 

73 03 

734 


JAE 

CRTRET 

9 

NO. DO NOTHING IF NOT IN RANGE 




733 

« 






0061 ' 


736 

CRTOO: 






0061 ' 

2EFF A4 0006" 

737 


JMP 

CRTABLC8I 1 

f 

TAKE JUMP BASED ON FUNCTION 




750 

i 








739 









760 

I 


THIS IB THE COMMON 

RETURN 

POINT FOR ALL CRT CALLS 




761 

« 

IF 

THE RETFLO 18 SET THEN THE 

RETURN 18 A "LOCAL" RETURN 




762 

« 

U.e. DO NOT POP THE STACK 

AND RETURN OUT OF CRT CODE AREA BUT 




763 

i 


INSTEAD RETURN UITHIN CRT 

CODE FROM LOCAL CALLER) 




764 









763 

f 






0066 9 


766 

CRTRET 

PROC 

NEAR 




0066 ' 

00 3E OOOA" OO 

767 


CMP 

RETFLO. OOH 

9 

Q: CONDITIONAL RETURN FLAG BET 

1 

006B 9 

73 03 

760 


JNE 

LOCRET 

9 

Y: DO A "LOCAL" RETURN 


006D # 

OB 

769 


POP 

BX 

1 



006E 9 

07 

770 


POP 

ES 

9 



006F # 

IF 

771 


POP 

D8 

9 



0070 ' 

3E 

772 


POP 

81 

f 

ALL CRT CODE JUMPS TO CRTRET AND 

0071 9 

3F 

773 


POP 

DI 

9 



0072 ' 

C3 

774 

LOCRET: 

RET 


9 

RETURNS THRU HERE TO CLEAR THE 

STACK 



773 

l 








776 

I 








777 









770 

9 

THIS ROUTINE IB USED TO BET THE CRT MODE (NOTE: this is not 




779 

1 

applicable to PEGASUS but 

Is provided for compatibility with 




700 

1 

the IBM 

CRT calling conventions!. 

IT DOES NOTHING AND SIMPLY 




701 

1 

RETURNS 

• 






702 

f 








703 

I 

INPUT - 

AH - 0 






704 

f 


AL - 1-7 f ignored) 






703 

f 








706 

1 

OUTPUT 

- None 






707 

9 








700 

9 

USED - 

None 






709 

9 








790 









791 

9 








792 

9 SETMOD 

PROC 

NEAR 






793 


ASSUME 

ES: CRTDAT 






794 

9 

JMP 

CRTRET 

9 

DO NOTHING 



793 

796 

797 
790 
799 


SET CURSOR TYPE BASED ON REGISTER CX 
INPUT - CH ■ Bit* 4-0 cursor start line (0 - OBH) 



CRTDSR (CRT DSR CODE) CR80B6/11 version 10.34.17 
MAIN CRTDSR. SRC 


3-Aug-B3 16:34:99 


Page 2-3 





800 

1 


Bite 

6-9 curior type 

I. e. 00 * no bl ink 




801 

1 




01 ■ no curior 




802 

l 




10 - 1/16 blink 




803 

1 




11 - 1/33 blink 




804 

1 








809 

l 


CL - Bit* 

4-0 curior end 

line (0 - OBH) 




B06 

1 


Bite 

7-9 not ueed 





807 

l 








BOB 

1 

OUTPUT 

- none 






B09 

l 








BIO 

1 

USED - 

AX. CX. DL 






BU 









812 

1 





0073 9 



813 

8TCTYP 

PROC 

NEAR 

i 

SET CURSOR TYPE 




814 


ASSUME 

EB: CRTDAT 



0073 ' 

89 

OE 0004- 

819 


MOV 

CURTYP. CX 

i 

SAVE CURSOR TYPE LOCALLY 

0077 * 

91 


816 


XCHO 

AX. CX 

I 

AX-CURSOR TYPE SPECIFIED BY CX 

0078 ' 

B2 

OA 

B17 


MOV 

DL.CURBTR 

i 

GET CURSOR SCAN LINE REO HIGH 

007A 9 

E8 

040C 

018 


CALL 

PTRUP 

i 

GO UPDATE CRTC 

007D 9 

EB 

E7 

819 


JMP 

CRTRET 

I 

ALL DONE 




820 

i 








821 









822 

I 


BET CURSOR 

AT COLUMN (DH), 

ROW(DL) P09ITI0N 




023 

l 








824 

i 

INPUT - 

DH ■ X (column) coordinate (0-79) 




829 

i 


DL " Y (row) coordinate (0-24) 




826 

i 








827 

i 

OUTPUT 

- CURSOR WRITTEN AT (X.Y) 

COORDINATES 




828 









829 

i 





007F 9 



830 

8TCPOS 

PROC 

NEAR 

1 

SET CURSOR POSITION 




831 


ASSUME 

ES: CRTDAT 

1 


007 F' 

BO 

FE 90 

832 


CMP 

DH. BO 

i 

Q: IB DH ( 80 COLUMNS ? 

0082 9 

73 

2A 

833 


JAE 

NOCSET 

1 

N: THEN DON'T BET THE CURSOR 

0084 ' 

BO 

FA IB 

834 


CMP 

DL. 24 

i 

Q: IS DL ( - 24 LINES 7 

0087 ' 

77 

29 

839 


JA 

NOCSET 

l 

N: THEN DON'T SET THE CURSOR 

0089 ' 

BO 

90 

B36 


MOV 

AL. 80 

1 

Y: AL ■» CHARACTERS ON THE LINE 

OOBB ' 

BB 

DA 

837 


MOV 

BX. DX 

l 

GET COL/ROW IN BX 

008D' 

F6 

E3 

830 


MUL 

BL 

l 

MULTIPLY Y COORDINATE BY 00 

008F 9 

03 

06 0006- 

839 


ADD 

AX. DISBEO 

I 

ADD Y TO DISBEO 

0093' 

29 

07FF 

840 


AND 

AX, 7 FFH 

I 

MAGIC NUMBER 

0096' 

A3 

0009- 

041 


MOV 

THSLIN, AX 

f 

UPDATE THIS LINE 

0099 ' 

31 

D2 

042 


XOR 

DX, DX 

l 

CLEAR DX REGISTER 

009B ' 

BA 

D7 

843 


MOV 

DL, BH 

l 

PUT X coordinate IN REO. DX 

009D ' 

B9 

16 OOOB - 

044 


MOV 

CRTCNT . DX 

i 

PUT X AS CHAR COUNT ON LINE 

OOAl ' 

Ol 

DO 

849 


ADD 

AX. DX 

i 

THIS IS CURSOR POSITION 

OOA3 ' 

A3 

0003 M 

B46 


MOV 

CURPOS, AX 

1 

SAVE NEW CURSOR POSITION 

00A6 ' 

B2 

OE ' 

B47 


MOV 

DL. CURPSH 

1 

DL = CURSOR POS. ADD. REO. HIGH 

OOAB ' 

EB 

03C6 

848 


CALL 

PTRADJ 

i 

ADJUST CURSOR TO LOGICAL POSITION 

OOAB ' 

EB 

03DB 

849 


CALL 

PTRUP 

i 

GO WRITE CURSOR 




890 

l 





OOAE ' 



091 

NOCSET: 
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OOAE 9 EB B6 


1 


1 


OOBO * 

OOBvr s At 0003* 
00B3 9 EB 03BB 
00B6 ' 29 DB 

OOBB 9 B3 90 
OOBA 0 F6 F3 
OOBC ' 92 

OOBD' BB OE 0004* 
00C1' EB A3 


) % 


) 


) 


892 

893 

894 
B99 
B96 
897 
B9B 
B99 
060 
061 
062 

063 

064 
B69 
066 
067 
86B 
069 
870 

07 1 

072 

873 

874 
879 

076 

077 

078 
879 
800 
081 
082 

803 

804 
009 
006 
007 
00B 
009 
890 

091 

092 

893 

894 
099 

896 

897 

098 

099 

900 

901 

902 

903 


JMP CRTRET l ALL DONE 


THIS ROUTINES READS THE CURRENT CURSOR POSITION AND RETURNS 
THE POSITION IN DX AS (COLUMN. ROW) # (X.Y). 



INPUT - 

- NONE 




OUTPUT 

- DH ■ (col umn ) . DL * 

(row) 




CH» CL ■ Cursor typo 




USED - 

DX# CX. AX* BX. 



RDCPOB 

PROC 

NEAR 

i 

READ CURSOR POSITION 


ASSUME 

EB: CRTDAT 




MOV 

AX# CURPOS 

« 

AX - ABSOLUTE CURSOR POSITION 


CALL 

PTRADJ 

i 

ADJUST TO LOGICAL POSITION 


BUB 

AX# BX 

I 

AX - OFFSET FROM DI6BE0 

l 

MOV 

BL.80 

I 

f 

(BX - DISBEG RETURNED FROM CALL) 


DIV 

BL 

f 

DIVIDE AX BY 00 


XCHQ 

DX# AX 

i 

PUT COL# ROW IN DH# DL 


MOV 

CX.CURTYP 

f 

GET CURSOR TYPE IN CX 

l 

JMP 

CRTRET 

I 

RETURN 

i 

THIS ROUTINE READS THE LIGHT 

PEN AND RETURNS IT'S POSITION 

I 

TO THE 

CALLER. 



i 

» 

INPUT - 

* NONE 



f 

l 

OUTPUT 

- RETURN NO ACTION FOR NOW 



USED - 


RLPPOB PROC NEAR 

ASSUME EB: CRTDAT 
JMP CRTRET 


THIS ROUTINE BETS THE ACTIVE DISPLAY PAGE (IT DOES NOTHING) 
AND IB PROVIDED FOR IBM COMPATIBILITY ONLY. 


BTDBPO PROC NEAR 

ASSUME EB: CRTDAT 
JMP CRTRET 



CRTDSR I CRT D5R CODE) 
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00C3 ' 

00C3 0 BO FF 4F 
00C6' 77 OF 

00C8 9 80 FE 4F 

OOCB 0 77 OA 

OOCD 0 80 FB IB 

OODO ' 77 09 
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904 

905 

906 

907 
900 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 


THIS ROUTINE "SCROLLS" THE SCREEN IN EITHER DIRECTION BY 
SIMPLY PERFORMING A MOVB FROM THE SOURCE TO THE DESTINATION 
LOCATION OF THE SCREEN. THIS METHOD PROVIDES FOR DEFINING 
A WINDOW AND MOVING IT TO ANOTHER POSITION ON TEH SCREEN. 

THE SOURCE WINDOW BOUNDARY COORDINATES ARE AS FOLLOWS AND 
THE SAME APPLIES FO RTHE DESTINATION COORDINATES: 

Upp*r left « (ire. col. «irc row) 

Upp*r right ■ (ire. col. + col. cnt. » ire. row) 

Louivr left « (ire. col. • ire. row + lin* cnt.) 

Low*r right » ( ire. col. + col. cnt. lire, row ♦ lin* cnt.) 

INPUT - AL ■ 0 blank out iourc« text 
* AL ) 0 Don't blank lourci 
• • (DH#DL) ■ (Sourc* column* Sourct row) of icroll 

(BH, BL) ■ (Destination col umn, Dest inat ion row) of icroll 
CH - Column count! 1-80) CL ■ Lin* count(l-25) 

• NOTE: If th* source and destination windows 

overlap then some of th* source will 
be overwritten. 


927 i 

*# NOTE: 

If destination li less 

than source 


920 f 


then the scroll is a icroll up and 


929 i 


to th* left# if source 

is less than 


930 1 


destination then the scroll is a scroll 

931 1 


down and to the right. 



932 1 





933 1 





934 i 


Eiample: You want to scroll the screen 

935 1 


lines. 



936 1 





937 i 


input 

- source col# row (DH» DL 

93B 1 



des t. col# row 

(BH, BL 

939 i 



column count 

(CH) « 8 

940 1 



line count (CL) * 25- 

941 i 





942 i 

OUTPUT 

- NONE 



943 i 





944 i 

USED - 




945 i 





946 1 *< 





947 i 





948 SCROLL PROC 

NEAR 

i SCROLL THE SCREEN UP 

949 

ASSUME 

E6: CRTDAT 



950 

CMP 

BH, 79 

i 0: DEST. COL 

> 79 7 

951 

JA 

LEAVE 

i Y: THEN DO 

NOTHING 

952 

CMP 

DM • 79 

l Q: BRC. COL 

> 79 7 

953 

JA 

LEAVE 

1 Y: THEN DO 

NOTHING 

954 

CMP 

BL. 24 

i 0: DEST. ROM 

) 24 7 

955 

JA 

LEAVE 

I Y: THEN DO 

NOTHING 


OR DOWN 
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OOD2 ' 

BO 

FA 

IB 

936 


CMP 

00D3' 

76 

02 


937 


JBE 

00D7 ' 




93B 

LEAVE: 


00D7 ' 

EB 

BD 


939 


JMP 

00D9' 




960 

00_0N: 


00D9' 

30 



961 


PUSH 

OODA ' 

33 



962 


PUSH 

OODB ' 

32 



963 


PUSH 

OODC ' 

31 

CO 


964 


XOR 

OODE ' 

BO 

30 


963 


MOV 

OOEO' 

F6 

E2 


966 


MUL 

00E2 ' 

BA 

D6 


967 


MOV 

00E4 ' 

30 

F6 


96B 


XOR 

OOE6' 

01 

DO 


969 


ADD 

OOEB ' 

96 



970 


XCHQ 

OOE9 ' 

03 

36 

« 

4 

O 

O 

O 

971 


ADD 

OOED ' 

3A 



972 


POP 

OOEE ' 

31 

CO 


973 


XOR 

OOFO ' 

BO 

SO 


974 


MOV 

00F2 ' 

F6 

E3 


973 


MUL 

OOF 4 ' 

BA 

DF 


976 


MOV 

00F6 ' 

30 

FF 


977 


XOR 

OOFO ' 

01 

DB 


97B 


ADD 

OOF A 9 

97 



979 


XCHO 

OOFB 9 

03 

3E 

0006" 

980 


ADD 

OOFF 9 

3B 



901 


POP 

0100' 

SB 



902 


POP 

0101 ' 

39 

FE 


903 

* 

CMP 

0103' 

7C 

3D 


904 


JL 





903 

« 


0103 ' 




906 

BCRLUP: 


0103' 

SB 

D9 


907 


MOV 

0107' 

31 

C9 


900 


XOR 

0109' 

BA 

CB 


909 


MOV 





990 

I 


OlOB' 




991 

NORMUP: 


OiOB' 

BB 

16 

0006- 

992 


MOV 

010F' 

81 

C2 

07CF 

993 


ADD 

0113' 




994 

NRMUPO: 


0113' 

31 



993 


PUSH 

0114' 

36 



996 


PUSH 

0113^ ; 

37 



997 


PUSH 

01 16 V 

31 

C9 


998 


XOR 

OHS' 

BA 

CF 


999 


MOV 

01 1 A ' 




1000 

NRMUPt: 


01 1 A ' 

39 

D6 


1001 


CMP 

01 1C' 

7F 

IE 


1002 


JO 

Oi IE ' 

3C 

00 

% 

1003 


CMP 

0120' 

74 

06 


1004 


JE 

0122' 

26A4 


1003 


MOVB 

0124' 

E2 

F4 


1006 


LOOP 

0126' 

EB 

07 


1007 


JMP 
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DL. 24 
00 ON 


G: SRC. ROW ) 24 7 
N: THEN CONTINUE 


CRTRET 


QUIT IF ANY VALUES OUT OF RANGE 


AX 

BX 

DX 

AX. AX 
AL.60 
DL 

DL. DH 

DM. DH 
AX. DX 
61. AX 

61. DI6BE0 
DX 

AX. AX 
AL.BO 
BL 

BL.BH 
BH. BH 
AX. BX 
DI. AX 
D1.D18BEQ 
BX 
AX 

81 • DI 
SCRLDN 


SAVE AX 

SAVE DESTINATION COL/ROW 
SAVE SOURCE COL/ROW 
CLEAR AX 

AX - SRC. ROW OFFSET FROM O 

DX - BRC. COL. 

CLEAR DH 

AX - SRC COL/ROW ABB LOCATION 
SI - BRC COL/ROW ABB LOCATION 
St - BRC ABB LOCATION FROM DI6BE0 
RESTORE DX 
CLEAR AX 

AX - DEBT. ROW OFFSET FROM O 

BX - DEST. COL. 

CLEAR BH 

AX - DEBT. COL/ROW ABB LOCATION 
DI - DEST. COL/ROW AB6 LOCATION 
DI - DEST. ABS LOCATION FROM DIBBEO 
RESTORE BX 
RESTORE AX 

Q: BRC. BEG. IN FRONT OF DEBT. BEO. 7 
Y: THEN SCROLL DOWN 


BX. CX 
CX.CX 
CL, BL 


N: THEN SCROLL UP 
BX - COL. AND LINE COUNTS 
CLEAR CX FOR REP AND LOOP 
SET UP CX FOR LOOP 


DX. DIBBEO 
DX.7CFH 


N: THEN NORMAL SCROLL UP 
DX - BEGINNING OF DISPLAY ADDRESS 
DX - END OF DISPLAY ADDRESS 


CX 

SI 

DI 

CX.CX 
CL. BH 


SAVE IT 

SAVE BRC. LOCATION 
SAVE DEBT. LOCATION 
CLEAR CX FOR REP 
CX - COL. COUNT 


SI * DX 
QUIT I 
AL.O 
SPECUP 


G: SOURCE OFF THE END OF SCREEN 7 
Y: THEN QUIT IT 
Q: BLANKING SOURCE TEXT 7 

Y: THEN SPECIAL UP CONDITION 


BYTE PTR CDI 3, EB: BYTE PTRtBIJ i MOVB OF COL. COUNT LENGTH 


NRMUPt 


NEXT CHARACTER 


SHORT NX TUP 


NEXT LINE 
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012B ' 



100B 

BPECUP: 






01 2B ' 

EB 

006B 

1009 


CALL 

MOVE IT 


i 

00 DO THE MOVING AND LATCH SETTINO 

012B ' 

46 


1010 


INC 

SI 


1 

NEXT SOURCE CHARACTER 

012C ' 

47 


1011 


INC 

DI 


i 

NEXT DESTINATION LOCATION 

0I2D ' 

E2 

EB 

1012 


LOOP 

NRMUP1 


1 

DO IT FOR COL. COUNT TIMES 

012F ' 



1013 

NXTUP: 






012F ' 

5F 


1014 


POP 

DI 


l 

RESTORE DE9T. LOC. 

0130 ' 

83 

C7 50 

1015 


ADD 

DI # BO 


1 

NEXT DESTINATION LINE 

0133' 

5E 


1016 


POP 

SI 


f 

RESTORE SRC. LOC. 

0434' 

83 

C6 50 

1017 


ADD 

SI. BO 


l 

NEXT SOURCE LINE 

0137' 

59 


1018 


POP 

ex 


l 

RESTORE LINE COUNT 

013B ' 

E2 

D9 

1019 


LOOP 

NRMUPO 


1 

DO IT LINE COUNT TIMES 

013A ' 

EB 

03 

1020 


JMP 

SHORT BCRLRT 

1 

...AND RETURN 




1021 

i 






013C ' 



1022 

QUIT1: 






013C ' 

5F 


1023 


POP 

DI 


1 

CLEAR THE STACK 

013D ' 

5E 


1024 


POP 

SI 


1 


013E ' 

59 


1025 


POP 

ex 


1 





1026 

I 






0I3F ' 



1027 

BCRLRT : 






01 3F' 

E9 

FF24 

102B 


JMP 

CRTRET 


l 

...AND LEAVE 




1029 

l 









1030 

i 









1031 





HH 





1032 

i 

THIS IS 

THE SCROLL DOWN PORTION 

OF THE SCROLL. IT DOES THE 




1033 

i 

THE MOVE SEQUENCE 

STARTING FROM 

THE END OF THE SOURCE 




1034 

i 

WINDOW 

TO THE END 

OF THE DESTINATION WINDOW BACKWARDS. 




1035 





MH 





1036 

i 






0142' 



1037 

SCRLDN: 




1 


0142' 

51 


103B 


PUSH 

ex 


1 

SAVE CX 

0143' 

50 


1039 


PUSH 

AX 


1 

SAVE AX 

0144' 

30 

E4 

1040 


XOR 

AH. AH 


1 

CLEAR AH 

0146' 

BO 

50 

1041 


MOV 

AL. BO 


1 


0148' 

FE 

C9 

1042 


DEC 

CL 


1 

MAKE LINE COUNT 0 RELATIVE 

01 4A ' 

FE 

CD 

1043 


DEC 

CH 


1 

MAKE COL. COUNT 0 RELATIVE 

01 4C ' 

F6 

El 

1044 


MUL 

CL 


1 


01 4E ' 

BA 

CD 

1045 


MOV 

CL. CH 


1 


0150' 

30 

ED 

1046 


XOR 

CH, CH 


1 

CLEAR CH 

0152' 

01 

CB 

1047 


ADD 

AX. CX 


1 

AX ■ SRC. END OFFSET FROM SRC. BEGIN 

0154' 

01 

C6 

1048 


ADD 

SI, AX 


1 

SI = SRC. END COL/ROM ABS. LOCATION 

0156' 

01 

C7 

1049 


ADD 

DI, AX 


1 

DI « DEST. END COL/ROW ABS. LOCATION 

0158' 

SB 


1050 


POP 

AX 


1 

RESTORE AX 

0159' 

59 


1051 


POP 

CX 


1 

RESTORE COL. AND LINE COUNTS 

01 5A ' 

BB 

D? 

1052 


MOV 

BX. CX 


1 

BX * COL. AND LINE COUNTS 

015C ' 

30 

ED 

1053 


XOR 

CH, CH 


» 

CLEAR CX FOR REP AND LOOP 

015E ' 

BA 

CB 

1054 


MOV 

CL, BL 


1 

SET UP CX FOR LOOP 



% 

1055 

i 






0160' 



1056 

NORMDN: 






0160' 

BB 

16 0006" 

1057 


MOV 

DX. DI5BE0 


1 

AX ** BEGINNING OF DISPLAY ADDRESS 

0164' 

B1 

C2 07CF 

1058 


ADD 

DX, 7CFH 


1 

AX = END OF DISPLAY ADDRESS 

0168' 

FD 


1059 


STD 



1 

SET DIRECTION FLAG FOR MOVS 



CRTDSR (CRT DBR CODE) CRB086/U vinion 10.34.17 
MAIN CRTDBR. SRC 


3-At#f-B3 16: 34: 3? 


Pag* 2-8 


0169 ' 




1060 

NRMDNO: 






0169 ' 

91 



1061 


PUSH 

CX 


i 

SAVE IT 

016A ' 

96 



1062 


PUSH 

61 


f 

SAVE BRC. LOCATION 

016B ' 

97 



1063 


PUSH 

DI 


1 

SAVE DEBT. LOCATION 

016C ' 

30 

ED 


1064 


XOR 

CH. CH 


1 

CLEAR CX FOR REP 

0I6E ' 

8A 

CF 


1063 


MOV 

CL. BH 



CX - COL. COUNT 

0170 ' 




1066 

NRMDNl: 






0170 ' 

39 

D7 


1067 


CMP 

DI. DX 


0 

Q: DEBT. OFF THE END OF SCREEN ? 

0172* 

7F 

IF 


1060 


JO 

QUIT2 


l 

Y: THEN QUIT IT 

0174 ' 

3C 

00 


1069 


CMP 

AL. 0 


1 

Q: BLANK SOURCE TEXT 7 

0176 ' 

74 

06 


1070 


JE 

BPECDN 


1 

Y: THEN SCROLL DOWN WITH BLANK INO 

0178 ' 

26A4 


1071 


MOVB 

BYTE PTR [DI ]> EB: BYTE PTRCBI] i MOVB OF COL. COUNT LENGTH 

017A' 

E2 

F4 


1072 


LOOP 

NRMDNl 


0 

N: THEN KEEP GOING 

0I7C ' 

EB 

07 


1073 


JMP 

SHORT NXTDN 


I 

NEXT LINE 

0I7E ' 




1074 

SPECDN: 






017E ' 

E8 

0019 

1073 


CALL 

MOVE IT 


f 

GO DO THE MOVINO AND LATCH 6ETTIN0 

0181 ' 

4E 



1076 


DEC 

81 


1 

NEXT BOURCE CHARACTER 

0182 ' 

4F 



1077 


DEC 

DI 


1 

NEXT DESTINATION POSITION 

0183 ' 

E2 

EB 


1078 


LOOP 

NRMDNl 


i 

N: DO IT FOR COL. COUNT TIMES 

0183 ' 




1079 

NXTDN: 






0183' 

3F 



1080 


POP 

DI 


l 

RESTORE DEBT. LOG. 

0186' 

83 

EF 

90 

1081 


BUB 

DI.80 


1 

NEXT DESTINATION LINE 

0189' 

3E 



1082 


POP 

81 


f 

RESTORE SRC. LOC. 

018A ' 

83 

EE 

90 

1083 


BUB 

61. BO 


0 

NEXT SOURCE LINE 

0180' 

99 



1084 


POP 

CX 


0 

RESTORE LINE COUNT 

01BE ' 

E2 

D9 


1083 


LOOP 

NRMDNO 


0 

DO IT LINE COUNT TIMES 

0190' 

FC 



1086 


CLD 



0 

CLEAR DIRECTION FLAG 

0191 ' 

EB 

AC 


1087 


JMP 

SHORT BCRLRT 


0 

...AND RETURN 





1088 

i 






0193' 




1089 

QU1T2: 






0193' 

FC 



1090 


CLD 



0 

CLEAR DIRECTION FLAG 

0194' 

EB 

A6 


1091 


JMP 

SHORT QUIT1 


0 

...AND LEAVE 





1092 

0 










1093 




«»•« 







1094 

* 

THIS 

ROUTINE IS USED TO 

DO 

THE BLANKING MANEUVER REQUIRED BY 





1093 

i 

THE SCROLLING ROUTINE WHEN 

BLANKING OF SOURCE TEXT IS REQUIRED. 





1096 

i 

IT BAVEB THE ATTRIBUTE 

LATCH, SAVE THE CHAR'S ATTRIBUTE, BET THE 





1097 

« 

LATCH 

TO THE DEFAULT ATTRIBUTE (HIGH INTENSITY). BLANKS THE SRC. 





1098 

i 

CHAR 

POSITION. RESTORE 

THE 

ATTRIBUTE OF THE CHAR.. WRITES THE 





1099 

9 

CHAR. 

• THE DESTINATION 

AND THEN 

RESTORES THE LATCH TO IT '8 





1100 

0 

ORIGINAL BETTING. 








1101 

1 










1102 

0 

INPUT 

- EB - CRTDAT 








1103 

1 


D9 - ROMDAT 








1104 

0 










1103 

0 

OUTPUT - IT DID IT 








1106 

9 









% 

1107 

1 

USED 

- NONE 








1108 




«*«* 







1109 

0 






0196' 




1110 

MOVE IT 

PROC 

NEAR 




0196' 

90 



1111 


PUSH 

AX 
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0197 ' EB 0307 

0I9A ' 26BA 04 

019D' 26BA 26 1800 

Oi A2 ' 26C6 06 1B00 OF 

01 AS ' 26C6 04 20 

01 AC ' 26B0 26 IBOO 

0101' 26BB 09 

0104' EB 02FC 

01B7 90 

0108 ' C3 


0109' 

0109' 60 3E 0003" 

01BD ' 26BA 09 
01C0' 26BA 26 IBOO 
01C9 ' E9 FE9E 


01CB ' ' 

01CB ' 26BB IE IBOO 


1112 

1113 

1114 
1119 
1116 
1117 
1116 

1119 

1120 
1121 
1122 

1123 

1124 
1129 
1126 
1127 
1120 

1129 

1130 

1131 

1132 

1133 

1134 
1139 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 
1149 

1146 

1147 
1 14B 
1149 

1190 

1191 

1192 

1193 

1194 
1199 

1196 

1197 
1190 
1199 
1160 
1161 
1162 
1163 


CALL SAVATT i SAVE THE LATCH 

MOV AL» E9: BYTE PTR tSI) I GET FIRST SRC. CHAR. 

MOV AH. ES: BYTE PTR ATTLAT i SAVE THE BOURCE CHAR'S ATTRIBUTE 

MOV EBBYTE PTR ATTLAT. HIGHAT I SET THE LATCH TO THE DEFAULT 

MOV EB BYTE PTR CSU, SPACE » CLEAR BOURCE TEXT 

MOV EB BYTE PTR ATTLAT. AH I RE9T0RE THE CHAR'S ATTRIBUTE 

MOV ES: BYTE PTR CDIJ. AL i WRITE IT AT DEST. LOCATION 

CALL RSTATT l RESET THE ATTRIBUTE LATCH 

POP AX 

RET 


THIB ROUTINE READS AND RETURNS THE CHARACTER AND ATTRIBUTE AT 
THE CURRENT CURSOR POSITION. 

INPUT - NONE 

OUTPUT - AH * Attribute of character read 
AL - character read 

USED - AX.DI 


RATCHR PROC NEAR I READ CHAR. L ATTRIBUTE t CURSOR 

ASSUME EB: CRTDAT 

MOV DI.CURPOS l DI « CURRENT CURSOR POSITION 

MOV AL, EB: BYTE PTR CDI3 I AL - CHARACTER t CURSOR 

MOV AH. EB: BYTE PTR ATTLAT i AH « ATTRIBUTE 

JMP CRTRET f 


THIB ROUTINE IB USED TO WRITE A CHARACTER AND ASSOCIATED 
ATTRIBUTE AT THE CURRENT CURSOR POSITION. THE USER SHOULD 
NOTE THAT THE CURSOR IB NOT AUTOMATICALLY ADVANCED WITH THIB 
ROUTINE. 

INPUT - AL - Character to write 

BL ■ Atribute of character 
CX m Count of chare, to write 

OUTPUT - Non* 

USED - AX. BL, CX 


WATCHR PROC NEAR I WRITE ATT. 6 CHAR, t CURSOR 

ASSUME ES: CRTDAT 

MOV ES: BYTE PTR ATTLAT. BL I WRITE THE ATTRIBUTE LATCH 
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1164 

1 

THIS 18 

THE ENTRY POINT FOR WRITINO A CHARACTER ONLY 




1163 

1 

• THE CURRENT CURSOR POSITION. 

IT IS ALSO USED BY THE 




1166 

I 

ABOVE PROCEDURE BUT IGNORES THE 

ATTRIBUTE PARAMETER. 




1167 

I 

AGAIN THE USER SHOULD NOTE THAT 

THE CURSOR IB NOT AUTO- 




1168 

l 

HATICALLY ADVANCED AND IS LEFT AT IT'S ORIGINAL POSITION. 




1169 

l 







1170 

1 

INPUT - 

AL ■ Character to write 





1171 

1 


CX ■ Count of chare, to 

write 




1172 

l 







1173 

1 

OUTPUT - None 





1174 

1 







1173 

1 

USED - AX# CX 





1176 

l 







1177 








1178 

1 




01CD ' 



1179 

WRTCHR 

PROC 

NEAR 

f WRITE CHAR. ONLY • CURSOR 




1180 


ASSUME 

EB: CRTDAT 


OICD * 

83 

F9 OO 

1181 


CMP 

CX.O 

l 0: ANY CHARACTERS TO WRITE 7 

01 DO ' 

76 

IA 

1182 


JBE 

NO WRIT 

• N: THEN DON'T WRITE ANY 

0ID2 ' 

30 


1183 


PUSH 

AX 

l SAVE AX 

01D3 9 

At 

0003- 

1184 


MOV 

AX# CURPOS 

l AX - CURPOS PHYSICAL LOCATION 

0! D6 9 

E8 

0298 

1183 


CALL 

PTRADJ 

1 GO GET IT'S LOGICAL POSITION 

01D9 9 

97 


1186 


XCHO 

DI. AX 

# PUT IT IN DI 

01 DA' 

Aft 

0007- 

1187 


MOV 

AXiDISEND 

1 AX - DISPLAY END PHYSICAL LOCATION 

01DD' 

E8 

0291 

1188 


CALL 

PTRADJ 

1 GET IT'S LOGICAL LOCATION 

OlEO' 

93 


1189 


XCHO 

BX# AX 

• PUT IT IN BX 

OIEI ' 

38 


1190 


POP 

AX 

l RESTORE AX 

0IE2 ' 



1191 

WRTLOP: 




01E2 ' 

2688 03 

1192 


MOV 

EB: MEMBEOCDI ]# AL 

1 WRITE CHAR. STARTINO AT CURSOR 

0IE3* 

47 


1193 


INC 

DI 

l NEXT LOCATION 

0IE6 ' 

39 

DF 

1194 


CMP 

DI# BX 

i Q: NEXT LOCATION OFF END OF SCREEN 7 

01E8 ' 

77 

02 

1193 


JA 

NDURIT 

» Y: THEN DON'T WRITE IT THERE 

01EA ' 

E2 

F6 

1196 


LOOP 

WRTLOP 

i DO IT CX TIMES 

OIEC ' 



1197 

NOWRIT: 




OIEC ' 

E9 

FE77 

1198 


JMP 

CRTRET 

1 ...AND RETURN 




1199 

i 







1200 








1201 

f 

THIB ROUTINE IB USED TO BET THE 

COLOR PALETTE FOR THE GRAPHICS 




1202 

« 

BANKS A. 

B.C. 





1203 

i 







1204 

i 

INPUT - 






1203 

i 







1206 

i 

OUTPUT - 

- Palette set accordingly 




1207 

i 







1208 

i 

USED - 






1209 

f 







1210 







% 

1211 

i 







1212 

• 8ETPAL 

PROC 

NEAR 





1213 

f 

ASSUME 

EB: CRTDAT 





1214 

l 

JMP 

CRTRET 





1213 

• 
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1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 
1223 
1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1233 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 
1243 

1246 

1247 

1248 

1249 

1230 

1231 

1232 
1253 

1234 

1233 

1236 

1237 
1258 
1239 
1260 
1261 
1262 

1263 

1264 
1263 
1266 
1267 


THIS ROUTINE IB USED TO WRITE A GRAPHICS PIXEL AT THE 
SPECIFIED LOCATION. 

INPUT - 

OUTPUT - 

USED - 


MRP I XL PROC NEAR 

ASSUME ESCRTDAT 
JhP CRTRET 


THIS ROUTINE IS USED TO READ A GRAPHICB PIXEL AT THE 
SPECIFIED LOCATION. 

INPUT - 

OUTPUT - 

USED - 


RDPIXL PROC NEAR 

ASSUME ESCRTDAT 
JMP CRTRET 


THIS ROUTINE IS USED TO SET THE COLOR PALETTE FOR THE GRAPHICB 
BANKS A# Bf C. 

INPUT - BH - COLOR ID 

BL - COLOR VALUE (OOOOORGB) 

OUTPUT - Palctti accordingly 

USED - CL. BL IS DESTROYED 


BETPAL PROC NEAR 

ASSUME E5: CRTDAT . DS ROMDAT 

MOV CL. BH i COPY BIT ADDRESS TO SHIFT COUNT 

MOV DI.GRJIED I DI =* POINTS TO RED PALETTE LATCH 

MOV SI. OFFSET REDPAL iSI » POINTS TO LOCAL COPY OF PALETTES 

MOV AL. 03H i AL - LOOP COUNT 


PALOOP : 
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1260 

1 

MOV 

AH. tsn 


•AH - CURRENT RED PALETTE BETTI NO 

1269 

f 

CALL 

DOPAL 


1 

1270 

« 

MOV 

ES: BYTE PTR 

tDI]. AH 

I BET THE LATCH 

1271 

l 

INC 

St 


i 

1272 

1 

INC 

DI 


« 

1273 

1 

DEC 

AL 


a 

1274 

1 

JNZ 

PALOOP 


•DO ALL THREE PALETTES 

1279 

1 

JMP 

CRTRET 


9 ... AND LEAVE 

1276 

i DOPAL: 





1277 

a 

808 

AH. CL 


•MOVE BIT TO CHANOE TO LBB 

1270 

a 

RC8 

BL. 1 


•GET NEW BIT INTO CARRY 

1279 

a 

RCR 

AH. 1 


l MERGE BIT INTO MSB. DROP OLD BIT 

1200 

f 

ROL 

AH. 1 


iBACK IN SHIFTED POSIITON 

1201 

i 

ROL 

AH. CL 


•PUT BACK INTO PROPER POBI ITON 

1282 

l 

RET 

> 



1203 

a 





1204 






1289 

« 

THIS ROUTINE 18 USED TO WRITE A 

GRAPHICS PIXEL AT THE 

1286 

a 

SPECIFIED LOCATION. 



1287 

1 





1280 

a 

INPUT - 

CX « COLUMN 

ADDRE89 


1289 

i 


DX - ROW ADDRESS 


1290 

i 


AL - COLOR 

ID . THAT 

18 VALUE TO PUT INTO PLANES 

1291 

« 



NOT 

COLOR THAT WILL COME FROM PALETTE 

1292 

I 





1293 

« 

OUTPUT 

- TO BITS IN 

FRAME BUFFER MEMORY (ORAPHICS BIT MAP) 

1294 

I 





1299 

« 

USED - 




1296 

i 





1297 

i 

FORMULAE - BYTE ADDRESS- <ROW«LlNELEN+< COLUMN/0 >> XOR 1 

1298 

« 


BIT ADDRESS - COLUMN 

MOO 0 

1299 






1300 

1 





1301 

i WRP1XL 

PROC 

NEAR 



1302 

a 

ASSUME 

DS: ROMDAT 



1303 

a 

CALL 

MKCUR8 


lA LOCAL ROUTINE FOR CONVERSION OF 

1304 

« 




1 ROW/COLUMN TO BYTE/ BIT 

1309 

l 

MOV 

DI. DX 


I 

1306 

l 

MOV 

BX. GRASEQ 



1307 

l 

MOV 

ES. BX 


l POINT EB TO PLANE 1 

1308 

i 

CALL 

WRTPXL 


a DO IT FOR BANK A 

1309 

a 

MOV 

BX. GRBSEO 



1310 

a 

MOV 

ES. BX 


a 

1311 

l 

CALL 

WRTPXL 


a DO IT FOR BANK B 

1312 

a 

MOV 

BX. GRCSEO 



1313 

a 

MOV 

ES. BX 



1314 

l 

CALL 

WRTPXL 


a DO IT FOR BANK C 

1319 

I 

JMP 

CRTRET 


a ...AND LEAVE 

1316 

a WRTPXL: 





1317 

i 

RCR 

AL. 1 


a BIT TO ENTER TO CARRY FLAG 

1310 

l 

OR 

EBBYTE PTR 

CDI3.CL 

a BET THE BIT THEN 

1319 

a 

JB 

WREND 


i 
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1320 

l 

AND 

EB: BYTE PTR 

ID13.CH i 

1321 

i WREND: 




1322 

i 

RET 


i 

1323 

i 




1324 





1323 

« 

THIS SUBROUTINE CONVERTS ROM COLUMN ADDRESS INTO BYTE ADDRESS AND 

1326 

i 


HIGH AND LOW 

ACTIVE BIT MASKS 

1327 

i 

INPUT - 

- CX - COLUMN 

ADDRESS !<« 736) 

1328 

I 


DX - ROW ADDRESS (<« 300) 

1329 

l 

OUTPUT 

-CM - ONE BIT LOW 

1330 

1 


CL - ONE BIT HIGH 

1331 

l 


DX - BYTE ADDRESS 

1332 

f 




1333 

1 MKCURS 

PROC NEAR 


1334 

1 

MOV 

BX. CX 

iMOVE COLUMN OUT OF CX 

1333 

1 

PUSH 

AX 

iNEED A FOR MULTIPLY 

1336 

1 

MOV 

CX. BLNLEN 

(CX = BYTES PER ROW 

1337 

I 

MOV 

AX. DX 

iMOVE ROW TO MULTIPLIER 

1338 

1 

MUL 

CX 

9 TIMES NUMBER OF BYTES PER ROW 

1339 

i 

MOV 

CL. 3 

i DIVIDE COLUMNS BY 8 TO GET BYTE COLUMN 

1340 

1 

MOV 

DX. BX 

iCOPY COLUMN VALUE 

1341 

1 

BHR 

DX. CL 

i BYTE PART OF COLUMN 

1342 


ADD 

DX. AX 

(FINAL BYTE ADDRESS RETURNED IN DX 

1343 

« 

MOV 

CL. BL 

iLS BYTE OF COLUMN ADDRESS 

1344 

l 

AND 

CL. 07H 

i SNATCH BIT ADDRESS 

1343 

f 

MOV 

BL. OIH 

1 CREATE A BIT 

1346 

l 

BHL 

BL. CL 

i SHIFT IT INTO BIT POSITION 

1347 

f 

MOV 

BH. BL 

iCOPY TO MS BYTE TO 

1348 

1 

NOT 

BH 

l CREATE COMPLEMENT FOR ANDING 

1349 

l 

MOV 

CX. BX 

i RETURNED IN CX 

1330 

1 

POP 

AX 

i RECOVER IN CASE NEEDED 

1331 

l 

RET 



1332 

1 




1333 





1334 

i 

THIS ROUTINE IS USED 

TO READ A GRAPHICS PIXEL AT THE 

1333 

i 

SPECIFIED LOCATION. 


1336 

i 




1337 

1 

INPUT - 

CX - COLUMN 


1338 

f 


DX • ROW 


1339 

l 

OUTPUT 

- AL - COLOR 

NUMBER FROM BIT MAP. NOT RGB VALUE 

1360 

i 




1361 

f 

USED - 

A. B.C.D 3 BYTES OF STACK* IN MKCURS) 

1362 

i 




1363 





1364 

i 




1363 

1 R DPI XL 

PROC 

NEAR 


1366 

f 

CALL 

MKCURS 

i 

1367 

1 

MOV 

DI. DX 

i 

1368 

i 

XOR 

AL. AL 

l PREPARE AL TO RECEIVE DATA 

1369 

i 

MOV 

BX. GRCSEO 


1370 

1 

MOV 

ESr BX 

9 POINT TO FIRST PLANE 

1371 

9 

CALL 

REAPXL 

i DO IT FOR BANK C 
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OIEF 9 
OIEF 9 
01F2' 
0IF5' 
0IF6 9 
01FB # 
OiFA' 
OlFr « 
OIFZ ' 
0200 ' 
0204 * 
0206 9 
0208 ' 
020C 9 


A1 0005" 

EB 027C 
97 

BB D1 
30 F6 
30 E4 
BO 50 
F6 E2 

03 06 0006 N % 
39 FB 
76 07 

B9 OE 0009" 
E9 FE57 


1372 I 

MOV 

1373 • 

MOV 

1374 i 

CALL 

1375 • 

MOV 

1376 i 

MOV 

1377 I 

CALL 

137B 1 

JMP 

1379 iREAPXL: 

1300 f 

MOV 

1301 i 

AND 

1302 i 

JZ 

1303 i 

OR 

1304 i 

ROL 

1305 i REAEND: 

1306 i 

RET 

1307 i 

130B i*i 


1309 | 

1390 | 

1391 l 

INPUT 

1392 I 

1393 « 

1394 | 

1395 l 

1396 i 

1397 i 

1390 1 

1399 | 

1400 1 

1401 9 

1402 | 

1403 1 

1404 | 

OUTPUT 

1405 1 

1406 1 

USED - 

1407 l 

1408 i *l 


1409 • 

1410 BETTTY PROC 

1411 

MOV 

1412 

CALL 

1413 

XCHO 

1414 

MOV 

1415 

XOR 

1416 

XOR 

1417 

MOV 

1418 

MUL 

1419 

ADD 

1420 

CMP 

1421 

JBE 

1423 

MOV 

1423 

JMP 


3-Aug-B3 16:34:59 
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BX.CRBSEQ 
EB. BX 
REAP XL 
BX. GRASEQ 
EB. BX 
REAP XL 
CRTRET 

AH. EB: BYTE PTR CDIJ i OET THE BYTE 
AH. CL I HASH THE BIT 

REAEND I TEST IT 

AL. OiH 

AL. 1 I INTO POBTION. NEED TO FILL LBB 


BET TTY STATUS LINE. 

• CH ■ O (always) 

CL - Start Etna number of status line (0-24 decimal ) 

NOTE: CH mutt always ba tiro. This nprtifnti 
tha first column of tha status lina. 

CX - O - Full scraan TTY. 

NOTE: If an attempt is mads to causa a status 

lina which doesn't fall after tha currant 
lina of the cursor the than no status lina 
is implemented. 

- Nona 

Nona 


NEAR 

AX. THSLIN 
PTRADJ 
DI. AX 
DX. CX 
DH. DH 
AH. AH 
AL. BO 
DL 

AX.DISBEQ 
AX. DI 
BTTTY1 
STATLN. CX 
CRTRET 


BET TTY STATUS LINE BEGINNING 
AX - THSLIN PHYSICAL LOCATION 
GET IT 'B LOGICAL LOCATION 
PUT IT IN DI 

DX - STATUS LINE COL. ROW 
HAKE BURE COL - O 
CLEAR AH 

AX - BTAT. ROW OFFSET FROM O 
SI - BTAT ABB LOCATION FROM DISBEG 
Q: BTATU9 LINE (- CURRENT LINE 7 
Y: THEN BET NO STATUS LINE. 

SAVE STATUS LINE BEGINNING 
. . . AND RETURN 


I POINT TO NEXT PLANE 
i DO IT FOR BANK B 

i 

I 

I DO IT FOR BANK A 

I...AND LEAVE >> 
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020F ' 



1424 

STTTY1 : 




020F ' 

C7 

06 0009” OOOO 

1423 


MOV 

BTATLN. O 

i SET NO STATUS LINE 

0213 9 

E9 

FE4E 

1426 


JMP 

CRTRET 

1 ... LEAVE 




1427 

i 







1428 








1429 

i 


ASCII TELETYPE WRITE ROUTINE 




1430 

f 







1431 

i 

INPUT - 

AL ■ Character to 

uir 1 tc 




1432 

i 







1433 

I 

OUTPUT 

- Nona 





1434 

i 







1435 

I 

USED - 






1436 








1437 

l 




0218 ' 



1438 

WRTTTY 

PROC 

NEAR 

l ASCII TELETYPE WRITE 




1439 


ASSUME 

E9: CRTDAT 


0218' 

3C 

07 

1440 


CMP 

AL. BEL 

• 16 CHAR A BELL CHARACTER 7 

021 A' 

74 

OF 

1441 


JE 

BEPBEL 

i YES, Than go heap tha ball 

021C ' 

3C 

08 

1442 


CMP 

AL. BS 

i IS CHAR A BACKSPACE 

02 IE ' 

74 

11 

1443 


JE 

BAK9P 

1 YES, DO SHORT JUMP 

0220' 

3C 

OA 

1444 


CMP 

AL. LF 

i IS IT A LINE PEED 

0222' 

74 

63 

1443 


JE 

LINFED 

1 YES. DO SHORT JUMP 

0224' 

3C 

OD 

1446 


CMP 

AL. CR 

1 IS CHAR A CARRIAGE RETURN 

0226' 

74 

4A 

1447 


JE 

CARET 

1 YES. DO SHORT JUMP 

0228' 

E9 

0129 

1448 


JMP 

CHRWRT 

l NO. THEN WRITE CHAR • CURSOR POS. 

0220' 



1449 

BEPBEL: 




0220 ' 

EB 

0001" 

1430 


CALL 

BEEP 

1 00 BEEP THE BELL 

022E ' 

E9 

FE33 

1431 


JMP 

CRTRET 

1 ...AND LEAVE 




1432 

i 







1433 








1454 

i 


PERFORM A BACKSPACE 




1433 








1436 

« 




0231 ' 



1437 

BAKBP 

PROC 

NEAR 





1458 


A9BUME 

EB: CRTDAT 


0231 ' 

A1 

0003" 

1459 


MOV 

AX, CURP09 

l GET CURRENT CURSOR POSITION 

0234' 

80 

IE 0006" 

1460 


MOV 

BX. DISBEO 

» GET BEGINNING OF DISPLAY POINTER 

0238' 

39 

D8 

1461 


CMP 

AX. BX 

1 BEE IF THE SAME 

023A ' 

74 

20 

1462 


JE 

NOBKBP 

l DO NOTHING (RETURN) 

023C ' 

80 

IE 0003" 

1463 


MOV 

BX. THSLIN 

i GET THISLIN POINTER 

0240' 

39 

D8 

1464 


CMP 

AX. BX 

l SEE IF AT BEGINNING OF LINE 

0242' 

74 

ID 

1463 


JE 

BAKLIN 

l WRAP BACK TO PREVIOUS LINE 

0244' 



1466 

BKSP1 : 




0244 ' 

48 


1467 


DEC 

AX 

i BACK-UP ONE CHAR POSITION 

0243' 

25 

07FF 

1468 


AND 

AX, 7FFH 

I MAGIC NUMBER ! ! 

0248' 

A3 

0003" 

1469 


MOV 

CURPOB. AX 

i SAVE NEW CURSOR POSITION 

0240' 

02 

OE 

1470 


MOV 

DL. CURPSH 

1 DL - CURS. POS. REG. HIGH 



% 

1471 

i 



1 AH - CURS. POS. ADD. HIGH 

024D ' 

E8 

0221 

1472 


CALL 

PTRADJ 

l GET CURSOR LOGICAL POSITION 

0230' 

EQ 

0236 

1473 


CALL 

PTRUP 

1 DO DOUBLE WRITE TO CRTC 

0253' 

80 

IE 0008" 

1474 


MOV 

BX. CRTCNT 

l GET NUMBER OF CHRS ON LINE 

0237' 

40 


1473 


DEC 

BX 

l NOW THERE IS ONE LESS 
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oasa' 

89 

IE 0008" 


1476 


MOV 

CRTCNT. BX 

t SAVE NEH COUNT 





1477 

1 




029C ' 

* 

lil 

FE07 


1478 

NOBKBP: 

JMP 

CRTRET 

1 ALL DONE 





1479 

« 




02 9F' 




1480 

BAKL1N: 




029F 9 

83 

EB 90 


1481 


BUB 

BX* 80 

• MOVE THSLIN BACK ONE LINE 

0262 # 

81 

E3 07FF 


1482 


AND 

BX* 7FFH 

1 MAGIC NUMBER ! ! 

0266' 

89 

IE 0009" 


1483 


MOV 

THSL1N* BX 

I SAVE NEW THSLIN POINTER 

026 A* 

C7 

06 0008" 

0090 

1484 


MOV 

CRTCNT. 80 

• SET CHAR COUNT - TO A FULL LINE 

0270 ' 

EB 

02 


1489 


JMP 

SHORT BKBP1 

i GO BACK AND FINISH 





I4B6 

l 








1487 









1488 

i 


PERFORM A CARRIAGE RETURN 





1489 









1490 

l 




0272' 




1491 

CARET 

PROC 

NEAR 






1492 


ASSUME 

EB: CRTDAT 


0272 ' 

B2 

OE 


1493 


MOV 

DL. CURPBH 

l GET CURSOR POS. ADD. HIGH 

0274 ' 

At 

0009" 


1494 


MOV 

AX. THSLIN 

1 GET CURRENT LINE ADDRE88 

0277' 

A3 

OOOC. 


1499 


MOV 

CURPOS* AX 

l BAVE NEW CUR. POS. - THSLIN 

027A' 

EB 

0IF4 


1496 


CALL 

PTRADJ 

• GET CURSOR LOGICAL POSITION 

027D' 

E8 

0209 


1497 


CALL 

PTRUP 

I DO DOUBLE WRITE TO CRTC 

0280' 

C7 

« 

ID 

§ 

O 

<4 

O 

0000 

1498 


MOV 

CRTCNT. 0 

» BET CHARACTER COUNT TO IERO 





1499 

I 



• IMPLIES CURSOR AT POS. O ON LINE 

0286' 

► 

HI 

FOOD 


1900 


JMP 

CRTRET 

I ALL DONE 





1901 

f 








1902 









1903 

« 


PERFORM A LINE FEED 





1904 









1909 

« 




0289' 




1906 

LINFED 

PROC 

NEAR 






1907 


ASSUME 

EB: CRTDAT 


0289' 

AI 

0003" 


1908 


MOV 

AX. CURPOS 

1 GET CURRENT CURPOS 

028C ' 

09 

0090 


1909 


ADD 

AX* 80 

l ADJUST CURSUR FORWARD 80 CHARS. 

02BF ' 

29 

07FF 


1910 


AND 

AX. 7FFH 

1 MAGIC NUMBER ! ! 

0292' 

A3 

0003" 


1911 


MOV 

CURPOS. AX 

1 BAVE NEW CURSOR 

0299 ' 

At 

0009" 


1912 


MOV 

AX. THSLIN 

l GET CURRENT LINE ADDRESS 

0298' 

09 

0090 


1913 


ADD 

AX* 80 

1 ADJUST THSLINE FORWARD ONE LINE 

029D * 

29 

07FF 


1914 


AND 

AX. 7FFH 

I MAGIC NUMBER 

029E ' 

A3 

0009" 


1919 


MOV 

THSLIN. AX 

I BAVE NEW LINE ADDRES9 

02AI ' 

E8 

OICD 


1916 


CALL 

PTRADJ 

l GET LINE LOGICAL LOCATION 

02A4 ' 

97 



1917 


XCHO 

DI. AX 

1 PUT IT IN DI 

02A9* 

83 

3E 0009* 

00 

1910 


CMP 

BTATLN. 0 

i Q: FULL SCREEN TTY ? 

02AA ' 

79 

9B 


1919 


JNE 

BPECLF 

1 N: THEN DO SPECIAL LINFED 

02AC ' 

Al 

0007" 


1920 


MOV 

AX. DISEND 

» GET END OF DISPLAY POINTER 

02AF ' 

E8 

OiBF 


1921 


CALL 

PTRADJ 

1 GET DISPLAY END LOOICAL LOCATION 

02B2 ' 

39 

C7 


1922 


CMP 

DI. AX 

l SEE IF WENT PAST END OF DISPLAY 

02B4 ' 

77 

OE 

V 

1923 


JA 

ADJBEO 

• GO CAUSE A SCROLL OF ONE LINE 

02B6 ' 

Al 

0003" 


1924 

LF1 : 

MOV 

AX. CURPOS 

• GET NEW CURSOR PHYSICAL POSITION 

02B9 ' 

B2 

OE 


1929 


MOV 

DL. CURPSH 

1 DL - CUR. POS. ADDRESS HIGH REGISTER 

02BB ' 

E8 

0IB3 


1926 


CALL 

PTRADJ 

• GET CURSOR LOGICAL POSITION 

02BE ' 

EB 

oica 


1927 


CALL 

PTRUP 

l GO UPDATE BCREEN POINTERS 



Pm g* 2-17 


) 

) 




'I 
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132B 

l 




02 c t ' 

E9 

FDA2 

1329 


JMP 

CRTRET 

1 




1330 

l 




02<r* < 



1531 

ADJBEO: 




oac 4 * 

B9 

0030 

1532 


MOV 

CX* BO 

1 

02C7' 

01 

E7 07FF 

1533 


AND 

DI* 7FFH 

1 

02CB ' 

E8 

01C8 

1334 


CALL 

REPIT 

i 

02CE' 

A1 

0006" 

1333 


MOV 

AX* DI8BE0 

1 

02D1 ' 

03 

0030 

1336 


ADD 

AX* 00 

1 

02D4' 

23 

07 FF 

1337 


AND 

AX. 7FFH 

l 

02D7 ' 

A3 

0006 M 

133B 


MOV 

DISBEG. AX 


02DA ' 

A1 

0007" 

1339 


MOV 

AX. DISEND 

i 

02DD ' 

03 

0030 

1340 


ADD 

AX* 80 

1 

02E0 ' 

23 

07 FF 

1341 


AND 

AX. 7FFH 

1 

02E3 ' 

A3 

0007" 

1342 


MOV 

DIBEND* AX 

J 

02E6 ' 

B2 

OC 

1543 


MOV 

DL. DISSTH 

l 

02EB ' 

Ai 

0006" 

1344 


MOV 

AX. DISBEG 

f 

02EB ' 



1343 

BLKTB1 : 




02EB ' 

26F6 06 1811 30 

1346 


TEST 

EB: BYTE PTR CRTSTA, 

CRTVBL 

02FI ' 

73 

FB 

1347 


JNZ 

BLKTS1 





1 54B 








1549 








1550 








1331 





02F3' 



1552 

BLKT82: 




02F3 ' 

26F6 06 tBU 20 

1353 


TEST 

ES.BYfE PTR CRTSTA. 

CRTVBL 

02F9 ' 

74 

FB 

1354 


JZ 

BLKTB2 





1353 





02FB ' 

E8 

01BB 

1356 


CALL 

PTRUP 

1 

02FE' 

F6 

06 000 A" 02 

1337 


TEST 

RETFLO, 02H 

l 

0303 ' 

73 

22 

1338 


JNZ 

BPCLF1 

1 

0303 ' 

EB 

AF 

1339 


JMP 

BHORT LF1 

f 




1360 

f 




0307 ' 



1361 

BPECLF : 




0307 ' 

BB 

16 0009" 

1362 


MOV 

DX, STATLN 

« 

030B ' 

30 

F6 

1363 


XOR 

DH. DH 

1 

030D ' 

30 

E4 

1364 


XOR 

AH. AH 

1 

030F ' 

BO 

30 

1563 


MOV 

AL, 80 

1 

0311 ' 

F 6 

E2 

1566 


MUL 

DL 

l 

0313' 

03 

06 0006" 

1567 


ADD 

AX. DISBEG 

i 

0317' 

39 

C7 

1568 


CMP 

DI. AX 

i 

0319' 

72 

9B 

1369 


JB 

LF1 

1 

03 IB ' 



1370 

SCRLLF: 



1 

031 B ' 

BO 

OE 000 A" 02 

1371 


OR 

RETFLO. 02H 

i 

0320' 

BB 

3E 0007" 

1572 


MOV 

DI, DISEND 

i 

0324' 

47 


1373 


INC 

DI 

f 

0323' 

EB 

9D 

1374 


JMP 

SHORT ADJBEG 

l 

0327' 


V 

1375 

GPCLF1 : 




0327' 

BB 

16 0009" 

1576 


MOV 

DX, 9TATLN 

i 

032B ' 

4A 


1377 


DEC 

DX 

i 

032C ' 

BB 

IE 0009" 

1378 


MOV 

BX, STATLN 

i 

0330' 

Al 

0009" 

1579 


MOV 

AX, STATLN 

i 


ALL DONE 


SET UP CX FOR REP 
MAGIC NUMBER !! 

CLEAR ONE LINE W/ DEFAULT ATTRIBUTES 
GET BEGINNING OF DISPLAY 
MOVE FORWARD BO CHARS 
MAGIC NUMBER ! ! 

SAVE NEW DISPLAY BEGINNING 
GET END OF DISPLAY POINTER 
MOVE FORWARD 80 CHARS 
MAGIC NUMBER ! ! 

SAVE NEW END OF DISPLAY 
DL-DISPLAY START ADDRESS REG. HIOH 
AX-DISPLAY BEGIN ADDRESS 

i Q: VERTICAL NON-BLANK 77 
I N: WAIT FOR NON-BLANK 

i 

i NOW WAIT ONE FULL NON-BLANK PERIOD 
I INORDER TO CATCH LEADING EDGE OF 
I BLANKING PERIOD 

i Q: VERTICAL BLANK 77 
i N: WAIT UNTIL BLANK 

i Y: THEN QUICKLY GO AND 

...UPDATE BEGIN OF DISPLAY 
Q: DOING SPECIAL SCROLL 7 

Y: THEN MOVE STATUS LINE DOWN 
N: THEN GO BACK 


DX - 5TATUS LINE COL# ROW 
MAKE SURE COL - O 
CLEAR AH 

AX - STAT. ROW OFFSET FROM O 
SI - STAT ABS LOCATION FROM D1SBEG 
0: CURRENT LINE ( STATUS LINE 7 
Y: THEN UPDATE CURSOR POINTER 

N: THEN SCROLL TTY REGION 
SET CONDITIONAL RETURN FLAG 
GET END OF DISPLAY 
START WRITING BLANKS R D I SEND + 1 
GO SCROLL THE SCREEN AND COME BACK 


DX - SOURCE COL* ROW » STATLN - I 
BX = DEST. COL* ROW - STATLN 



CRTD9R (CRT 

DSR CODE) 

CR0O06/ ft 1 

version 10.34 

. 17 

3-Aug-B3 16: 34: 99 

Page 2-18 


MAIN CRTD8R.BRC 



• 





0333 ' 

B 1 

19 


1900 


MOV 

CL* 29 

i 


0339 ' 

20 

Cl 


1901 


BUB 

CL. AL 

i CL - 29 - BTATLN - BTAT. BLOCK SIZE 

| 

0337 ' 

B9 

90 


1902 


MOV 

CH.BO 

l CH - COLUMN COUNT FOR SCROLL 

• 

0339 ' 

E0 

0169 


1903 


CALL 

BAVATT 

I (•*» VI. 22 •«») Save attribute latch 






1904 




I AX ■ non-xero at this point always 


033C ' 

E0 

FD04 


1909 


r CALL 

SCROLL 

l 00 00 THE SCROLL OF THE TTY REOION 






1506 




» without blanking 

j 

033F' 

E0 

0171 


1907 


CALL 

R9TATT 

• («*» vi. aa »*•) R.t.t attribute latch 

i 





1500 




1 twee Vi. 22 eee) 

i 

1 

0342' 

8B 

3E 0009- 


1509 


MOV 

01. THSLIN 

i 01 ■ points to this line for blanking 


0346' 

B9 

0090 


1990 


MOV 

CX. 00 

« CX m length of one line 

i 

0349 ' 

E0 

0I4A 


1591 


CALL 

REPIT 

9 Blank the line above the status line 






1593 




9 


034C ' 

00 

36 OOOA- 

FD 

1993 


AND 

RETFLO. NOT 02H 

l RESET THE RETURN FLAO 


0391 ' 

E9 

FF62 


1594 


JMP 

SHORT LFI 

9 ...AND 00 UPDATE CURSOR 






1999 

9 




■j 





1596 










1597 

1 


WRITE SPECIFIED CHAR 

AT CURSOR AND ADVANCE CURSOR 






1990 










1999 

9 





0394' 




1600 

CHRWRT 

PROC 

NEAR 







1601 


ASSUME 

E8: CRTDAT 



0394 ' 

BB 

36 0003- 


1602 


MOV 

SI. CURPOS 

9 GET CURRENT CURSOR POSITION 


0390' 

BB 

IE OOO0- 


ft 603 


MOV 

BX.CRTCNT 

9 GET CURRENT CHARS ON LINE 


039C ' 

03 

FB 90 


1604 


CMP 

BX.0O 

9 BEE IF LINE IS FULL 


039F ' 

74 

IF 


1605 


JE 

NEWLIN 

9 YES. THEN ADVANCE FORWARD ONE LINE 


0361 ' 




1606 

CWRTft : 





0361' 

2600 04 


1607 


MOV 

E3: MEMBEOCBI J. AL 

9 WRITE CHAR. AT CUR. POS. 


0364' 

46 



1600 


INC 

SI 

9 MOVE CURSOR OVER ONE 


0369' 

43 



1609 


INC 

BX 

9 ONE MORE CHAR. ON LINE 

i 

0366' 

01 

E6 07FF 


1610 


AND 

SI. 7FFH 

9 MAGIC NUMBER !! 


036A ' 

09 

36 0003- 


1611 


MOV 

CURPOS. 61 

9 BAVE NEW CURSOR POSITION 


036E ' 

09 

IE 0008- 


1612 


MOV 

CRTCNT. BX 

1 SAVE NEW CHAR. COUNT 


0373' 

90 



1613 


PUSH 

AX 

9 BAVE CHAR AND ATTRIBUTE 


0373' 

96 



1614 


XCHQ 

AX. 81 

1 AX « CURS. POS. ADD. 


0374' 

B2 

OE 


1615 


MOV 

DL. CURPBH 

9 DL - CURS. POS. REG. HIGH 


0376' 

E0 

00F8 


1616 


CALL 

PTRADJ 

9 GET CURSOR LOGICAL POSITION 

.1 

0379' 

EB 

0100 


1617 


CALL 

PTRUP 

9 DO DOUBLE WRITE TO CRTC 


037C ' 

90 



1610 


POP 

AX 

1 RESTORE CHAR 


0370' 

E9 

FCE6 


1619 


JMP 

CRTRET 

9 ALL DONE 






1620 

9 





0300' 

90 



1621 

NEWLIN: 

PUSH 

AX 

9 BAVE CHAR. AND ATTRIBUTE 


0301 ' 

00 

06 OOOA" 

Oft 

1622 


OR 

RETFLO. 01H 

9 SET CONDITIONAL RETURN FLAO 


0306' 

E0 

FEE9 


1623 


CALL 

CARET 

9 DO A CARRIAGE RETURN AND A 


0309' 

E0 

FEFD 


1624 


CALL 

LINFED 

9 LINE FEED WITH SCROLL IF NECCE8ARY 


O30C ' 

00 

• 

< 

O 

o 

o 

-0 

ft 

FE 

1629 


AND 

RETFLO. NOT 01H 

9 RESET RETURN FLAG 


0391 ' 

90 



1626 


POP 

AX 

9 RESTORE CHAR. 


0393' 

0B 

36 0003- 

% 

1627 


MOV 

SI. CURPOS 

9 GET NEW CURSOR POSITION 


0396' 

BB 

IE 0000- 


1620 


MOV 

BX. CRTCNT 

9 GET NEW CHAR. COUNT 


039A' 

EB 

C9 


1629 


JMP 

SHORT CWRT1 

l CONTINUE 

j 





1630 










1631 

i 

THIS ROUTINE IS USED TO RETURN THE STATE lor MODE) OF THE 
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1632 

1633 

1634 

1635 

1636 

1637 
163B 

1639 

1640 

1641 

1642 

1643 

1644 
1643 

1646 

1647 
1 64B 
1649 

1630 

1631 

1632 
1653 
1634 

1633 
1656 

1637 

1638 

1639 
1660 
1661 
1662 

1663 

1664 
1663 
1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 
1673 

1676 

1677 

1678 

1679 

1680 
1681 
1 682 
1683 


CRT TO THE CALLER (NOTE: this it not applicable to PEOASUS 

but is provided for compatibility with the IBM CRT calling 
conventions). IT DOES NOTHINO AND 9IMPLY RETURNS. 

INPUT - AH - 13 

OUTPUT - (To be determined) 

USED - 


VID8TA PROC NEAR 

JMP CRTRET 


THIS ROUTINE IS USED TO WRITE A GIVEN BLOCK OF CHARACTERS TO 
THE SCREEN STARTING AT THE CURSOR USING THE SPECIFIED ATTRIBUTE. 
ALL CONTROL CHARACTERS (i.e. CR» LF. BEL etc.) ARE IGNORED AS SUCH 
AND PRINTED ON THE SCREEN AS ASCII CHARACTERS. 


INPUT - AL - Attribute of characters to write 

DX • Segment location of character block 

BX ■ Starting location of character block 

CX « Length of character block (not to ticifd 2000) 

NOTE: This routine does not increment the cursor 
location. The caller must be aware of the 
cursor location before using this routine 
and make sure that the block will "fit” on 
the screen or he will lose what want "fit". * 

OUTPUT - None 

USED - None 

* CX (block length) must be < or ■ 2000-((cur. row - 1 # BO)+cur. col.) 
Attempting to write characters beyond the end of screen will cause 
them to be be lost (not written). 


MATBLK PROC NEAR 

ASSUME ESCRTDAT 

MOV ES: BYTE PTR ATTLAT. AL I WRITE THE ATTRIBUTE LATCH 

I ... AND FALL THROUGH TO DO 
i ... THE BLOCK WRITE 


THIS ROUTINE IS USED TO WRITE A GIVEN BLOCK OF CHARACTERS TO 
THE SCREEN STARTING AT THE CURSOR ALL CONTROL CHARACTERS 
(i.e. CR» LF* BEL etc.) ARE IGNORED AS SUCH AND PRINTED ON THE 
SCREEN AS ASCII CHARACTERS. 
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S 


t 


) 


I 


) 


03AO' 

03A0* 83 F9 00 

03A3 9 76 IB 

03AV 03 
03A6 9 At 0003" 
03A9 ' EB OOCO 
03AC • 97 

03AD 9 At 0007" 
03B0 * EB OOBE 
03B3 * OB 
03B4 # BB F3 
03B6 9 IE 
03B7 9 BE DA 
03B9 9 
03B9 9 A4 
03BA 9 39 C7 

OOBC ' 77 02 

03BE' E2 F9 
03C0 9 
03C0 1 IF 
03C1 9 E9 FCA2 


I6B4 

1680 

1606 

1607 

16B8 

1609 

1690 

1691 

1692 

1693 

1694 
1690 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 
1700 

1706 

1707 
1700 

1709 

1710 

1711 

1712 

1713 

1714 
1710 

1716 

1717 
171B 

1719 

1720 

1721 

1722 

1723 

1724 
1720 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 
1730 


INPUT - DX - Segment location of character block 
BX ■ Starting location of character block 
CX ■ Length of character block (not to exceed 20001 

NOTE: Thie routine does not increment the curior 
location. The caller must be aware of the 
curior location before ueing thie routine 
and make cure that the block will "fit" on 
the screen or he will lose what want "fit". * 

Kith this tgpe of write the characters will 
take on the attributes of the last attribute 
change. 

OUTPUT - None 

USED - None 

• CX (block length! must be ( or ■ 2000- ((cur. row - 1 * BOl+cur. col.! 
Attempting to write characters beyond the end of screen will cause 
them to be be lost (not written!. 


WBLOCK PROC 

AB9UME 

CMP 

JBE 

PUSH 

MOV 

CALL 

XCMO 

MOV 

CALL 

POP 

MOV 

PUSH 

MOV 

BLKLOP : 

MOVB 

CMP 

JA 

LOOP 

TOOFAR: 

POP 

JMP 


THIS ROUTINE CHANGES THE ENTIRE SCREEN ATTRIBUTES 
RIGHT BEFORE YOUR VERY EYES 

INPUT - AL - ATRIBUTE TO USE 


CX.O I O: ANY CHARACTERS TO WRITE 7 

TOOFAR I N: THEN DON'T WRITE ANY 

BX I SAVE BX 

AX.CURPOB » GET CURSOR PHYSICAL POSITION 

PTRADJ I GET IT'B LOGICAL POSITION 

DI.AX I PUT IT IN DI 

AX. DIBEND l GET DISPLAY END PHYSICAL LOCATION 

PTRADJ l GET IT'B LOGICAL LOCATION 

BX l RESTORE BX 

81. BX I 61 - BLOCK STARTING ADDREBB 

DS » BAVE MY DB 

DS.DX l D6 - BLOCK SEGMENT 

BYTE PTR CD1 1. BYTE PTRCBIJ i ... BLOCK LENGTH TIMES 
DI.AX l 0: OFF THE END OF SCREEN 7 

TOOFAR • Y: THEN QUIT WRITING 

BLKLOP » N: KEEP GOING 


DS 

CRTRET 


I RESTORE MY DS 
f ...AND RETURN 



1 
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1736 





1737 

i 

OUTPUT 

- None 





1738 

1 







1739 

1 

USED - 

None 





1740 

l 







1741 








1742 

i 




03C4 9 



1743 

CHSCAT 

PROC 

NEAR 





1744 


ASSUME 

ES: CRTDAT. DS ROMDAT 


03C4 9 

SB 

36 0006" 

1749 


MOV 

SI • D1SBE0 1 

GET DISBEO IN 81 

03C8 9 

B9 

07D0 

1746 


MOV 

CX# 2000 l 

SET UP CX FOR LOOP 

03CB ' 



1747 

AGAIN: 




03CB ' 

268A 24 

1748 


MOV 

AH» ES: MEMBEOCSI 3 1 

READ A CHARACTER 

03CE 9 

26A2 1800 

1749 


MOV 

BYTE PTR E8: ATTLAT, AL I 

WRITE THE ATTRIBUTE LATCH 

0302 # 

2600 24 

1790 


MOV 

ES MEMBEOCSI ], AH 1 

WRITE THE CHARACTER BACK TO MEMORY 

0309 # 

46 


1791 


INC 

SI 1 

NEXT CHARACTER IN MEMORY 

0306 9 

E2 

F3 

1792 


LOOP 

AGAIN 1 

LOOP THROUGH ENTIRE SCREEN 

0300 9 

E9 

FC0B 

1793 


JMP 

CRTRET 1 

ALL DONE 




1794 








1759 

i 


CLEAR THE CRT SCREEN MEMORY AND HOME CURSOR 




1796 

« 







1797 

i 

INPUT - 

- None 





1798 

i 







1799 

I 


NOTE: Th 1 * routine will alto clear the itatum line 




)760 

I 


but will not clear 

the status line setting. 




1761 

I 


If the uter withee 

to keep what is on the 




1762 

i 


■tatue line he must 

rewrite it after clearing 




1763 

I 


the screen. 





1764 

i 







1769 

I 

OUTPUT 

- None 





1766 

i 







1767 

I 

USED - 

AX* CX# DL# DI 





1760 

i 







1769 








1770 

i 




03DB ' 



1771 

CLRTXT 

PROC 

NEAR 1 

CLEAR SCREEN PROCEDURE 




1772 


ASSUME 

ES: CRTDAT 1 


030B 9 

00 

OE OOOA- 02 

1773 


OR 

RETFLO, 02H 1 

Set conditional return flag 

03E0 ' 

31 

CO 

1774 


XOR 

AX. AX l 

Clear AX 

03E2 ' 

E0 

0002- 

1779 


CALL 

INILST 1 

Init local storage 

03E9 ' 

C6 

06 OOOA- 00 

1776 


MOV 

RETFLO. OOH 1 


03EA ' 

B9 

0000 

1777 


MOV 

CX. 2048 f 

SET UP CX FOR REP 

03ED ' 

31 

FF 

1778 


XOR 

DI . DI 1 

CLEAR DI FOR REPIT 

03EF ' 

EB 

00A4 

1779 


CALL 

REPIT 1 

Go clear the screen using HIGHAT 

03F2 ' 

A1 

0006” 

1700 


MOV 

AX.DISBEO 1 

GET BEGIN OF DISPLAY POINTER 

03F9 ' 

B2 

OC 

1781 


MOV 

DL.DISSTH l 

GET DISPLAY START ADD. REG HIGH 

03F7 ' 

EB 

008F 

1702 


CALL 

PTRUP » 

GO UPDATE DISPLAY BEGIN 

03FA ' 

B2 

OE \ 

1703 


MOV 

DL. CURPSH » 

GET CUR. POS. ADDR. REG. HIGH 

03FC ' 

A1 

0003- 

1784 


MOV 

AX.CURPOS i 

GET CURSOR POSITION 

03FF 9 

EB 

0007 

1789 


CALL 

PTRUP 1 

GO HOME THE CURSOR 

0402' 

E9 

FC61 

1786 


JMP 

CRTRET 1 

AI L DONE 


1707 J 
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17B8 9 

THIS ROUTINE IS USED TO 

CLEAR 

ALL 

THREE GRAPHICS BANKS. 




17B9 i 









1790 l 

INPUT - 

Non* 







1791 1 









1792 l 

OUTPUT 

- Non* 







1793 1 









1794 l 

USED - 








1793 l 









1796 




»*IH 





1797 l 






0403* 



1798 CLRORP PROC 

NEAR 


9 

CLEAR GRAPHICS MEMORY 




1799 

ASSUME 

EB: NOTH I NO 




0403* 

BB 

COOO 

1BOO 

MOV 

AX. GRABEQ 


9 

BET UP EB 

040B* 

BE 

CO 

1B01 

MOV 

E8. AX 


9 

AS BANK A 

040A' 

EB 

0013 

1B02 

CALL 

CLRIT 


9 

CLEAR THIS BANK 

0400* 

BB 

CBOO 

1B03 

MOV 

AX. 0RB6E0 


9 

BET UP EB 

0410* 

BE 

CO 

1804 

MOV 

ES. AX 


9 

AS BANK B 

0412* 

E8 

OOOB 

1803 

CALL 

CLRIT 


1 

CLEAR THIB BANK 

0413* 

BB 

DOOO 

1B06 

MOV 

AX.GRCSEO 


9 

BET UP EB 

04IB* 

BE 

CO 

1B07 

MOV 

ES. AX 


9 

AS BANK C 

041 A * 

EB 

0003 

1B0B 

CALL 

CLRIT 


9 

CLEAR THIB BANK 

0410* 

E9 

FC46 

1009 

JMP 

CRTRET 


9 

...AND LEAVE 

0420* 



1810 CLRIT: 





0420* 

31 

CO 

1611 

XOR 

AX. AX 


9 

CLEAR AX 

0422* 

31 

FF 

1812 

XOR 

DI.DI 


9 

CLEAR DI 

0424' 

B9 

4000 

1013 

MOV 

CX. BCRLEN 


9 

CX - BANK LENGTH FOR REP 

0427* 

F2 


1814 

REP 





042B* 

AB 


1B1 3 

STOS 

WORD PTR tDII 


9 

DO IT 

0429* 

C3 


1816 

RET 



9 

...AND RETURN 




1817 !•« 









1818 l 









1819 9 


BET ATTRIBUTE 

LATCH 




1820 9 


AH 

- 16H 






1821 9 









1822 9 

THIB ROUTINE 18 USED TO 

WRITE 

THE 

ATTRIBUTE LATCH WITHOUT 




1823 9 

HAVINQ 

TO WRITE A CHARACTER. 






1024 9 









1823 9 

INPUT - 

BL - Attribute 

to u«* 






1026 | 









1827 9 

OUTPUT 

- Latch «*t accordingly 






1820 9 









1829 9*9 









1830 9 






042A* 



1031 BETATT PROC 

NEAR 


9 

BET ATTRIBUTE LATCH 




1832 

ASSUME 

EB: CRTDAT 




042A* 

26BB IE 1B00 

1833 

MOV 

EB: BYTE PTR ATTLAT. BL 

1 

WRITE THE ATTRIBUTE LATCH 

042F ' 

E9 

FC34 

1034 

JMP 

CRTRET 


I 

...AND RETURN 



% 

1033 9«i 




*»«H 





1836 9 









1837 9 


GET PHYSICAL 

DISPLAY 

BEGIN OFFSET 




1838 • 


AH - 

17H 






1839 9 
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1840 i THIS ROUTINE 18 USED TO RETURN THE OFFSET (FROM DEOOH) OF 

1041 i THE PHYSICAL BEGINNING OF DISPLAY. 

1042 I 

1043 i INPUT - NONE 

1044 i 

1843 » OUTPUT - DX - Display begin offset 

1846 I ' 

1847 f 

' 1848 i a*************************************************************** 

1849 i 


0432 ' 



1850 

OTDSBO 

PROC 

NEAR 



0432 ' 

8B 

16 0006" 

1831 


MOV 

DX, DISBEG 

1 

DX ■ display begin 

0436 ' 

E9 

FC2D 

1832 


JhP 

CRTRET 

1 

... adn return 




1853 









1854 




Ml#* 





1835 

i 








1856 

I 


PRINT TTY STRING 





1837 

i 


AH - 1BH 






1838 

f 








1839 

i 

THIS ROUTINE IS USED TO PRINT 

A 8TRIN0 OF CHARACTERS IN THE 




1860 

i 

USERS 

CB: (GOTTEN FROM THE STACK) 

WITH A TTY WRITE. 




1861 

I 








1862 

l 

INPUT 

— BX ■ Address (offset) 

of 

the string 




1863 

I 


Where: C BX 3 byte 

0 - 

length of string 




1864 

i 


CBX 3 byte 

1 - 

first char, of string 




1863 

i 








1066 

i 

OUTPUT 

- NONE 






1867 

i 








1868 

i 








1869 




!»•« 





1870 

« 





0439 ' 



1871 

PRTTTY 

PROC 

NEAR 



0439' 

IE 


1872 


PUSH 

DS 

/' 

Save DS (ROMDAT pointer) 

043A ' 

33 


1873 


PUSH 

BP 

1 

Save BP 

043B ' 

BB 

EC 

1874 


MOV 

BP. SP 

1 

BP - SP 

043D ' 

83 

C3 12 

1873 


ADD 

BP. 10 

f 

Point to user's CS on the stack 

0440' 

BE 

3E 00 

1876 


MOV 

DB. SB; WORD PTR CBP 3 

1 

DS - user's CS 

0443' 

BB 

EB 

1877 


MOV 

BP. BX 

1 

BP * offset of string 

0443' 

30 

ED 

1878 


XOR 

CH. CH 

1 

Clear CH 

0447' 

3E8A 4E 00 

1879 


MOV 

CL. DB: BYTE PTR C BP 3 

1 

CX ■» string length count 

044B ' 

21 

C9 

1880 


AND 

CX.CX 

1 

Q: Zero length string 7 

04 4 D ' 

74 

ID 

1881 


JZ 

PTYEND 

1 

Y: Then quit 

044F ' 



1082 

PTTYLP: 





044F ' 

43 


1083 


INC 

BP 

1 

Point to character in string 

0430' 

3EBA 46 00 

1884 


MOV 

AL. DS: BYTE PTR tBP3 

1 

Get character 

0434' 

31 


1003 


PUSH 

CX 

1 

Save loop count 

0433' 

IE 


1006 


PUSH 

DS 

1 

Save this DS 

0436' 

2E0E IE C 1 BO' 

1887 


MOV 

DS.WORD PTR CS: D9ADDR*CSWRAP » SET UP DS AS ROMDAT 

043B ' 

80 

OE 00(3 A" 04 

1808 


OR 

RETFLG, 04H 

1 

Set conditional return flag 

0460' 

E8 

FDB3 

1089 


CALL 

WRTTTY 

1 

Do TTY character write 

0463' 

80 

26 000 A” FB 

1890 


AND 

RETFLG. NOT 04H 

1 

Reset flag in case of last char. 

0468' 

IF 


1891 


POP 

DS 

1 

Restore DS 
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0469 ' 99 

046A 9 E2 E3 

046C 9 
046C ' 9D 
046D 9 IF 
046E ' E9 FDF9 


0471 ' 

0471 9 BB IE 0006" 
0479 # 39 DB 

0477 ' 7C 01 
0479 ' C3 

047A # 09 0800 

047D # C3 


> % 


1B92 

1893 

1094 

1899 

1896 

1897 
IB9B 
IB99 

1900 

1901 

1902 

1903 

1904 
1909 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 
1919 

1916 

1917 
191B 

1919 

1920 

1921 

1922 

1923 

1924 
1929 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 
1939 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 


POP CX i Restore CX 

LOOP PTTYLP i Do entire string 

« 

PTYEND: 

POP BP I Restore BP 

POP DS i Restore DB ( ROMDAT pointer) 

JMP CRTRET » ...and return 


FOLLOWING ARE VARIOUS SUBROUTINES THAT THE CRT 
FUNCTIONS USE AT DIFFERENT TINES. 1 CALL THIS 
BET OF ROUTINES THE "CRT UTILITIES". NOT TO BE 
CONFUSED WITH "WATER WORKS" AND "ELECTRIC COMPANY". 


THIS SUBROUTINE FIGURES OUT ANY POINTER POSITION IN FRONT OF THE 
BEGINNING OF THE DISPLAY. THE POINTERS ARE STORED LOCALLY IN AN 
ABBOLUTE ADDRESS FORM AND ARE SOMETIMES BEHIND THE D1BBEQ POINTER. 
FOR THAT CASE* THIS CODE FIGURES OUT THE ABBOLUTE ADDREBB OF THE 
POINTER IN FRONT OF D1SBEG AND RETURNS IT IN REGISTER AX. 

NOTE: IF THE POINTER IS ALREADY IN FRONT OF DISBEO 

THEN NOTHING HAPPENS. 

INPUT - AX - POINTER ABSOLUTE ADDREBB 

OUTPUT - AX - POINTER ADDRESS IN FRONT OF DISBEO 
BX - DISBEO POINTER 

REGISTERS USED - AX. BX 


PTRADJ PROC NEAR 

ASSUME E3: CRTDAT 

MOV BX. DISBEO 

CMP AX. BX 

JL ADJPTR 

RET 

l 

ADJPTR: ADD AX. 2048 

RET 


l GET BEGINNING OF DISPLAY POINTER 
l Q: IS POINTER BEHIND DISPLAY BEGIN 7 

I Y: GO FIGURE OUT OFFSET 

f N: DO NOTHING 

i PUT POINTER IN FRONT OF DISPLAY BEGIN 
» ALL DONE 


THIS SUBROUTINE PERFORMS THE LOOPING MECHANISM REQUIRED TO WRITE 
DATA TO THE CRT CONTROLLER. IT WRITES THE REGISTER NUMBER PASSED 
TO IT INTO THE CRT ADDRESS REGISTER. INCREMENTS TO THE CRT WRITE 
REGISTER AND WRITES THE VALUE PASSED INTO IT AND DECREMENTS BACK 
TO THE CRT ADDRESS REGISTER. 

INPUT - DL - THE CRT REGISTER NUMBER TO PUT IN THE CRTADR 
AH « THE VALUE TO PUT IN THE CRT WRITE REG. 
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047E 9 

047E # 
04B3 9 
04BB 9 


0489 9 

0489 9 
048A' 
04BD 9 
04BF * 
0491 ' 
0494' 
0493 ' 


26B8 16 1810 
26B8 26 1B12 
C3 


1944 

1945 

1946 

1947 

1948 

1949 

1930 

1931 

1932 
1953 
1934 

1933 
1936 

1957 

1958 

1959 

1960 

1961 
196.2 

1963 

1964 
1963 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 


OUTPUT - DL - UNCHANGED 
AH - UNCHANGED 

RE01BTERS USED - DL. AH 


CTRLWR 


PROC 

ASSUME 

MOV 

MOV 

RET 


NEAR 

E5: CRTDAT 

BYTE PTR EB: CRTADR. DL 
BYTE PTR ES: WRTREG. AH 


I i i PUT CRT REQ. « INTO CRTADR 
m PUT VALUE IN CRT WRITE REG. 
i i i RETURN 


THIS SUBROUTINE PERFORMS THE DOUBLE CALL TO THE CTRLWR SUBROUTINE. 
THIS DOUBLE CALL IS REQUIRED TO UPDATE CRT SCREEN POINTERS THAT 
ARE ACCESSED VIA TWO CRT ADDRESS REGISTERS (HIGH AND LOW). 

INPUT - DL - THE CRT REGISTER (HIGH) TO WRITE INTO THE CRTADR. 

* NOTE: LOW REGISTER IS ASSUMED TO BE NEXT BY INCREMENTING DL 
AX - ADDRESS OF SCREEN POINTER TO BE CHANCED 

OUTPUT - DL - POINTS TO CRT LOW REGISTER 

AH « AL * LOW ORDER ADDRESS OF SCREEN POINTER IN QUESTION 

REGISTERS USED - DL. AX 

SUBROUTINES CALLED : CTRLWR 




1973 PTRUP PROC 

NEAR 





1976 

ASSUME 

ES: CRTDAT 



FA 


1977 

CLI 


i 

Shield* up 

EB 

FFF 1 

1978 

CALL 

CTRLWR 

f i i 

WRITE TO CRTC 

8A 

EO 

1979 

MOV 

AH. AL 

i i i 

AH =* START ADD. OF DISPLAY 

FE 

C2 

19B0 

INC 

DL 

1 i i 

DL - DISPLAY STRT ADD. REO 

EB 

FFEA 

1 981 

CALL 

CTRLWR 

i i i 

WRITE TO CRTC 

FB 


1982 

ST I 


1 1 1 

Shields down 

C3 


1983 

RET 



ALL DONE 



1984 1 







19B3 f»f 







1986 i 

THIS ROUTINE IS USED TO CLEAR "CX" 

AMOUNT OF SCREEN MEMORY 



1987 i 

US I NO THE DEFAULT (i.e. 

HI GHAT) ATTRIBUTES ON THE BLANKS 



1908 i 

THAT IT 

WRITES. 





1909 j 







1990 l 

INPUT - 

DI « POINTS TO 

THE STARTING 

MEMORY ADDRESS OF THE REP 


% 

1991 i 


CX » NUMBER OF 

BYTES TO CLEAR 



1992 i 


EB - CRTDAT 





1993 i 


DS - ROMDAT 





1994 i 







1995 i 

OUTPUT 

- Dl « DI -t-CX 
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1996 1 



ex - 0 





1997 i 



AH - SAVED ATTRIBUTE 





199B 1 



AL « SPACE 





1999 i 








2000 « 

USED 

- 

AX* DI.CX 





2001 1 


HH 






2002 f 






0496 ' 


2003 REPIT PROC 


NEAR 



0496' 

EB 0008 

2004 

CALL 


BAVATT 

9 

SAVE THE ATTRIBUTE LATCH 

0499 • 

BO 20 

2003 

NOV 


AL. SPACE 

9 

AL « SPACE FOR CLEAR 

049B 9 

F2 

2006 

REP 





049C # 

AA 

2007 

BTOB 


BYTE PTR (D13 

9 

DO IT CX TIMES 

0490 # 

EB 0013 

200B 

CALL 


RSTATT 

9 

RESTORE THE LATCH 

04A0 # 

C3 

2009 

RET 



9 

...AND LEAVE 



2010 f 








2011 ««i 








2012 l 

THIS 

ROUTINE 19 USED TO SAVE THE CURRENT 

ATTRIBUTE LATCH 



2013 l 

AND RESET IT TO THE DEFAULT SETTING 

FOR SUBSEQUENT WRITES. 



2014 i 








2013 f 

INPUT - EB - CRTDAT 





2016 1 



D8 * ROMDAT 





2017 « 








201B | 

OUTPUT 

t LATCH BET TO HI GHAT (OFH) 





2019 9 








2020 | 

USED 

- 

NONE 





2021 l«« 


imi 






2022 9 






04AI ' 


2023 8AVATT PROC 


NEAR 



04A1 ' 

30 

2024 

PUSH 


AX 



04A2 ' 

26BA 26 1B00 

2023 

MOV 


AH* EB: BYTE PTR ATTLAT 

9 

SAVE ATTRIBUTE IN AH 

04A7 * 

BB 26 OOOC" 

2026 

MOV 


ATTBAV* AH 

9 


04AB 9 

26C6 06 1800 OF 2027 

MOV 


EB: BYTE PTR ATTLAT. HI GHAT 

9 

BET LATCH TO DEFAULT 

04B1 9 

3B 

2020 

POP 


AX 

9 


04B2 * 

C3 

2029 

RET 



9 

...AND LEAVE 



2030 9 








2031 9 


MM 






2033 l 

THI8 

ROUTINE 18 UBED TO RESTORE THE 

ATTRIBUTE LATCH TO IT '8 



2033 9 

LAST 

SETTING. 





2034 9 








2033 9 

INPUT - E8 - CRTDAT 





2036 9 








2037 9 

OUTPUT 

- LATCH BET TO LAST SAVED SETTING 




203B 9 








2039 9 

USED 

- 

NONE 





2040 9 








2041 9 






04B3 9 


2042 RSTATT PROC 


NEAR 



04B3 # 

30 % 

2043 

PUSH 


AX 



04B4 9 

BA 26 OOOC" 

2044 

MOV 


AH* ATTBAV 

I 

GET THE OLD LATCH SETTING 

04B9 ' 

26BB 26 1B00 

2043 

MOV 


EB: BYTE PTR ATTLAT* AH 

1 

RESTORE THE LATCH 

04BD 9 

38 

2046 

POP 


AX 

9 


04BE * 

C3 

2047 

RET 



1 

...AND LEAVE 


i 
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204B 

2049 

2090 


No orrori ditvctid 


BUBTTL 

END 


* 
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TITLE - CRTTBL (CRT INITIALIZATION TABLES) 

ABSTRACT - THIS MODULE CONTAINS THE INITIALIZATION TABLES FOR EACH OF THE 




4 

1 


VARIOUS 

MONITORS THAT MIGHT 

BE PRESENT WITH PEGASUS. 

THE TYPE 



5 

• 


OF MONITOR IB DETERMINED BY 

READING A JUMPER AND THE 

CONTROLLER 



6 

1 


HILL BE 

BET UP WITH THE APPROPRIATE VALUES FROM THE 

APPROPRIATE 



7 

Q 

1 


TABLE CONTAINED HEREIN. 





9 


NAME 

CRTTBL 

I CRT INITIALIZATION 

TABLES) 




10 


SUBTTL 






-FFFF 

12 

DEBUO 

EOU 

OFFFFH 






13 









14 

I 



PUBLIC DEFINITIONS 





15 









16 

• 








17 


PUBLIC 

STAMON 






10 


PUBLIC 

ALTMON 






19 


PUBLIC 

TSTPAT 






20 









21 

i 



MODULE ENTRY POINT 





22 









23 

) 








24 

f 

THIS 18 

THE 60 

HZ CRT PROGRAMMING TABLE 




25 

I 







-0000 

26 


SECT 

ROMCOD 






27 


ASSUME 

CS: ROMCOD 





29 

l 






0000' 


29 

8TAM0N 

LABEL 

BYTE 




OOOO' 

67 

30 


DB 

104-1 

ii INITIALIZATION 

H TOTAL CHAR 


OOOl ' 

50 

31 


DB 

80 

i i 

H DISP CHAR 


0002' 

54 

32 


DB 

04 

• 1 VALUES 

H SYNC POSITION 


0003' 

3? 

33 


DB 

3*16+9 

l 1 

VSYNC, HSYNC WIDTHS 


0004' 

18 

34 


DB 

25-1 

1 i FOR 

V TOTAL ROWS 


0005 ' 

14 

35 


DB 

20 

i 1 

V TOTAL LINE ADJUST 


0006' 

19 

36 


DB 

25 

i 1 THE 

V DISP ROWS 


0007 ' 

19 

37 


DB 

25 

1 i 

V SYNC POSITION 


0000 ' 

00 

J39 


DB 

OOH 

i i 6545 

MODE CONTROL 


Q009 ' 

OB 

39 


DB 

12-1 

i i 

SCAN LINES PER ROW 


OOOA ' 

40 

40 


DB 

40H+0 

1 1 CRT 

CURSOR START 


OOOB ' 

OB 

41 


DB 

11 

i 1 

CURSOR END 


OOOC ' 

00 

42 


DB 

OOH 

l i CONTROLLER 

DISPLAY START HIGH 


OOOD ' 

00 

43 


DB 

OOH 

i i 

DISPLAY START LOW 


OOOE ' 

00 

44 


DB 

OOH 

il REGISTERS 

CURSOR HIGH 


OOOF ' 

OO 

45 


DB 

OOH 

II 0-15 

CURSOR LOW 




46 


»*»«»***i 

»«»»»*«« 






47 

i 








40 

i 

THIS 19 

THE TABLE FOR 50HZ EUROPEAN 

OPERATION 



\ 

49 

i 






OOIO' 


50 

ALTMON 

LABEL 

BYTE 




0010' 

67 

51 


DB 

104-1 

il INITIALIZATION 

H TOTAL CHAR 


0011 ' 

50 

52 


DB 

00 

1 i 

H DISP CHAR 


0012' 

54 

53 


DB 

84 

i i VALUES 

H SYNC POSITION 
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0013 ' 

39 

54 


DB 

3»16+9 f 


VBVNC. HSYNC WIDTHS 

0014' 

19 

55 


DB 

26-1 l 

FOR 

V TOTAL ROMS 

0015' 

14 

56 


DB 

20 l 


V TOTAL LINE ADJUST 

0016 ' 

19 

57 


DB 

25 l 

THE 

V DIBP ROMS 

0017 ' 

19 

50 


DB 

25 l 


V SYNC POSITION 

0018 ' 

00 

59 


DB 

OOH « 

6545 

NODE CONTROL 

0019' 

OD 

60 


DB 

14-1 » 


SCAN LINES PER ROW 

001 A' 

40 

61 


DB 

40H+0 i 

CRT 

CURSOR START 

001 B' 

OB 

62 


DB 

11 I 


CURSOR END 

OOIC' 

00 

63 


DB 

OOH J 

CONTROLLER 

DISPLAY START HIGH 

001D ' 

OO 

64 


DB 

OOH l 


DISPLAY START LOU 

001E ' 

00 

65 


DB 

OOH 1 

REGISTERS 

CURSOR HIGH 

001F ' 

OO 

66 


DB 

OOH • 

0-15 

CURSOR LOW 



67 

l 







6B 








69 

l 

THIS 

18 A TABLE OP TEST PATTERNS 

FOR THE VARIOB CRTC REOIBTERB 



70 

« 

WHICH 

IS USED DURINO THE PQWERUP 

DIAGNOSTICS. 



71 

I 





0020' 


72 

T8TPAT 

LABEL 

BYTE 



0020' 

PO 

73 


DB 

OFOH 



0021 ' 

CC 

74 


DB 

OCCH 



0022' 

AA 

75 


DB 

OAAH 



0023' 

55 

76 


DB 

055H 



0024' 

PO 

77 


DB 

OFOH 



0025' 

CC 

70 


DB 

OCCH 



0026' 

AA 

79 


DB 

OAAH 




BO i 

01 END 


No errors detected 
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2 i TITLE - CRTTST (CRT DIAGNOSTICS) 

3 • ABSTRACT - THIS MODULE IB RESPONSIBLE FOR THE CRT POWERUP DIAGNOSTIC 

4 » TESTS. IF THE TEST PASSES THEN THE LED'S ARE DECREMENTED 

3 I FROM THEIR CURRENT VALUE BY ONE AND POWERUP CONTINUES. IF 

6 I THE TEST FAILS AN ERROR CODE IS OUTPUT TO THE PRINTER PORT 

7 i AND THE POWERUP SEQUENCE AND TESTING STOPS. 
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9 


NAME 

CRTTST ( CRT DIAGNOSTICS) 



10 


6UBTTL 




12 

DEBUG 

EQU 

OFFFFH 



13 




*»{ 


14 

l 


PUBLIC DEFINITIONS 



13 




»JH 


16 


PUBLIC 

INICRT 



17 


PUBLIC 

INILST 



10 


PUBLIC 

CRTTBT 



19 


PUBLIC 

CRT INI 



20 






21 

» 


EXTERNAL REFERENCES 



22 




»JH 


23 

1 

EXTERNAL JUMPS AND CALLS 



24 

l 





23 


EXTRN 

CRTRET : NEAR 

1 

ICRTDSR ) 

26 


EXTRN 

D5PDIE: NEAR 

1 

C OUTPUT) 

27 


EXTRN 

DECLED: NEAR 

1 

<ROMUTL> 

2B 


EXTRN 

MSCTST : NEAR 

1 

(MSCTST) 

29 


EXTRN 

PRTRST : NEAR 

1 

(TINTTS) 

30 

i 





31 






32 

l 

EXTERNAL EQUATES 



33 

1 





34 


EXTRN 

ATMERR: ABS 

1 

(TSTERR ) 

33 


EXTRN 

ATTERR: ABS 

1 

( T6TERR ) 

36 


EXTRN 

C INTER: ABS 

1 

(TSTERR) 

37 


EXTRN 

CURERR: ABS 

1 

(TSTERR) 

30 


EXTRN 

CRAMER: ABS 

f 

(TSTERR) 

39 


EXTRN 

VIDERR: ABS 

1 

(TSTERR) 

40 


EXTRN 

VBLERR: ABS 

I 

(TSTERR ) 

41 


EXTRN 

LEDOIO: ABS 

1 

(ROMERR) 

42 

i 





43 






44 

i 

EXTERNAL TABLES 



43 

i 





46 


SECT 

ROMCOD 



47 


ASSUME 

CS: ROMCOD 



40 

i 





49 


EXTRN 

STAMON BYTE 



30 


EXTRN 

ALTMON: BYTE 

1 

( CRT TBL ) 

31 


EXTRN 

TSTPAT: BYTE 

l 

( CRTTBL ) 

32 

l 





53 

i »»*«»«»««*»*»*»#»«** »«»*»••« *#**»##*##****# **# 
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94 

I 

EXTERNAL STORAGE 


99 

96 

97 

f 

SECT 

ROHDAT 


98 


EXTRN 

CRTCNT : WORD 

l (ROHDAT ) 

99 


EXTRN 

CRTERR: BYTE 

• (ROHDAT) 

60 


EXTRN 

CRTHLD: BYTE 

• (ROHDAT) 

61 


EXTRN 

CURPOB: WORD 

1 (ROHDAT) 

63 


EXTRN 

CURTYP: WORD 

• (ROHDAT) 

63 


EXTRN 

DI5BEG: WORD 

1 (ROHDAT) 

64 


EXTRN 

DI SEND WORD 

l (ROHDAT) 

69 


EXTRN 

PRCQJ1: BYTE 

l (ROHDAT) 

66 


EXTRN 

RETFLO: BYTE 

l (ROHDAT) 

67 


EXTRN 

THSLIN: WORD 

1 (ROHDAT) 

60 

69 

i 

EXTRN 

BTATLN: WORD 

1 (ROHDAT) 
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0000 ' 
0000 f 
0003' 
0003' 
0007' 
0000 ' 
0010 ' 
0012 ' 
0013' 
0014' 
0016' 
0019' 
001 A ' 
001C' 
00 IF ' 
0021 ' 
0023' 
0023' 
0028' 
0028' 
0020 ' 
002E ' 
0032' 
0034' 

0036 ' 


71 

72 

73 

74 
73 

76 

77 
7B 
79 

330 

331 

332 

333 

334 
333 

336 

337 

338 

339 

340 


1 #**4 
| *««4 

INCLUDE 

LOCAL CONSTANTS 
PEG: ASCI I. EQU 



INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

PEG: PORTADDR. EQU 
PEG: LATCHES. EOU 
PEG: CRT. EQU 
PEG: VECTOR. EQU 


| «««4 
| «4t»4 


LOCAL MACROS 



BUBTTL MAIN 


MODULE ENTRY POINT 


THIS 18 THE TEMPORARY INITIALIZATION DONE AT FIRST SION OF 
POWER ON TO THE UNIT. NO STACK OR RAM IS AVAILABLE AT THIS 



341 

1 

TIME FOR USE BO THIS IS QUICK 

AND 

DIRTY !!! 


342 







343 

1 





-0000 

344 


SECT 

ROMCOD 




345 


ASSUME 

CS: ROMCOD, DS: ROMCOD, 

ES: CRTDAT 


346 

« 






347 

INICRT 

PROC 

NEAR 



BB 0000' 

348 


MOV 

BX* CRTDAT 

f 

SET UP ES 

BE C3 

349 


MOV 

ES* BX 

* 

AS CRTDAT 

31 FF 

330 


XOR 

DI, DI 

l 

DI * BEGINNING OF SCREEN MEMORY (0) 

26C6 06 1800 OF 

331 


MOV 

BYTE PTR ES: ATTLAT. HICHAT 

l SET ATTRIBUTES TO HIGH BRILLIANCE 

B9 0800 

332 


MOV 

CX. 2048 

i 

SET UP CX FOR REP STOS 

BO 20 

333 


MOV 

AL. SPACE 

i 

PUT A BLANK IN AL 

F2 

354 


REP 


i 

DI=MEMBEQ 

AA 

333 


ST 08 

BYTE PTR t DI 3 

i 

CLEAR SCREEN MEMORY 

BC CB 

336 


MOV 

BX * CS 

i 

BET UP DB 

BE DB 

337 


MOV 

DS* BX 

i 

TO POINT TO ROMCOD 

B 1 10 

338 


MOV 

CL. 16 

i 

16 REGISTERS TO INIT. 

B2 00 

359 


MOV 

DL.HZTCHR 

i 

START AT CR fC REGISTER ZERO 

BE OOOF" 

360 


MOV 

SI. OFFSET ALTMON 

i 

ALTMON - ALTERNATE MONITOR PROO. 

E4 01 

361 


IN 

AL. PRC I JP 

i 

READ LATCH FOR MONITOR TYPE 

AB 04 

362 


TEST 

AL. MONTYP 

i 

Q: LATCH » ALTERNATE MONITOR 7 

74 03 

363 


JZ 

CRT2 

i 

Y: THEN TABLE ALREADY SET UP 

BE OOOE M 

364 


MOV 

6 I. OFFSET STAMON 

i 

N: THEN SI » STANDARD MONITOR 


363 

CRT2: 





2688 16 1810 

366 


MOV 

BYTE PTR ESCRTADR.DL 

i 

OUT REG. NUMBER TO CRTADR REG. 

AC 

367 


LODS 

BYTE PTRtSII 

i 

LOAD INIT TABLE VALUE IN REG. AL 

26A2 1812 % 

368 


MOV 

BYTE PTR ES: WRTREG. AL 

i 

OUT INIT VALUE TO WRITE REG. 

FE C2 

369 


INC 

DL 

i 

NEXT REGISTER TO INIT. 

E2 F2 

370 


LOOP 

CRT2 

I 

LOOP UNTIL ALL INIT. 


371 

J 

MOV 

AL. 00 

i 


26 A2 1030 

372 


MOV 

BYTE PTR ES: GR RED* AL 

i 

SET GRAPHICS PALETTES 
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003A ' 

26 A2 1020 


373 


MOV 

BYTE PTR E8: GR_GRN. AL 

i 

...ALL TO ZERO 

003E ' 

26A2 1010 


374 


MOV 

BYTE PTR ES: GR_BLU* AL 

i 

. . . INITIALLY 

0042 ' 

36C6 06 1830 40 

373 


MOV 

BYTE PTR EB: MSCOUT. CDSPEN 

i TURN ON SCREEN 

0048 ' 

C3 


376 


RET 


i 

RETURN TO CALLER 




377 

1 








378 

l ****** 



***4 





379 

1 

THIS IS THE INITIALIZATION 

LOGIC FOR THE CRT CONTROLLER. 




380 

1 

IT PERFORMS THE CRT PUP TEST 

AND 

LEAVEB THE CRT INITIALIZED 




381 

1 


IF NO ERRORS OCCURRED. 




382 

I 








303 

« 

NOTE: 

THE PROCEDURE CRTINI IS 

THE 

FULL INITIALIZATION LOGIC FOR 




384 

1 


THE CRTC CONTROLLER AND 

IT MAY BE CALLED AT ANY TIME FOR 




385 

1 


THIS PURPOSE. 






306 




***1 





307 

1 






-0049 


380 


SECT 

ROMCOD 






389 


ASSUME 

CS ROMCOD. DS CRTDAT 






390 


ASSUME 

ES NOTHING 






391 

1 





0049' 



392 

CRTTST 

PROC 

NEAR 






393 

i 





0049' 

B8 0000' 


394 


MOV 

AX. CRTDAT 

1 

BET UP 

004C ' 

8E 08 


393 


MOV 

DS. AX 

1 

DS AS CRTDAT 




396 

l 








397 




*•*1 





398 

1 

BEGIN 

TESTING OF THE CRTC READABLE REGISTERS 




399 

l 





004E' 

BE OOIO- 


400 


MOV 

SI. OFFSET TSTPAT 

1 

SI - TABLE OF TEST PATTERNS 

0031 ' 

B9 0004 


401 


MOV 

CX. 4 

f 

NUMBER OF TEBT9 

0034' 

30 02 


402 


XOR 

DL. DL 

1 

CLEAR ERROR ACCUMULATOR 

0036' 

C6 06 1820 

20 

403 


MOV 

BYTE PTR MSCOUT. CRTOFF 

1 

SCREEN OFF BO NO TRASH WILL APPEAR 

003B ' 



404 

CR0T8T : 





003B ' 

2E8A 04 


403 


MOV 

AL. CS: CSn 

1 

AL-TEST PATTERN 

005E ' 

A2 1800 


406 


MOV 

BYTE PTR ATTLAT. AL 

1 

WRITE ATT. LATCH 

0061 ' 

C6 06 1810 

OE 

407 


MOV 

BYTE PTR CRTADR. CURPSH 

I 


0066' 

2E8A 44 01 


408 


MOV 

AL. CS: BYTE PTR ICSII 

» 

AL-TEST PATTERN 

006A ' 

A2 1812 


409 


MOV 

BYTE PTR WRTREG, AL 

1 

WRITE CURSOR POSITION HIGH 

0060 ' 

C6 06 1810 

OF 

410 


MOV 

BYTE PTR CRTADR. CURPBL 

1 


0072' 

2E8A 44 02 


411 


MOV 

AL* CS: BYTE PTR 2CSIJ 

1 

AL-TEST PATTERN 

0076' 

A2 1812 


412 


MOV 

BYTE PTR WRTREG. AL 

1 

WRITE CURSOR POSITION LOW 




413 

i 








414 

i 

CHECK 

THE REGISTERS 






413 

i 





0079' 

2EBA 04 


416 


MOV 

AL. CS: tSII 

1 

AL-TEST PATTERN 

007C ' 

38 06 1800 


417 


CMP 

BYTE PTR ATTLAT. AL 

1 

Q: IS ATT. LATCH WHAT I WROTE 

0080' 

74 03 


410 


JE 

CRGTSO 

1 

Y: JUMP AROUND EXIT 

0082' 



419 

ATTBAD: 



1 

N: THEN ATTRIBUTE LATCH FAILURE 

00B2 ' 

80 CA 07* 

t 

420 


OR 

DL. ATTERR 

1 

ATTRIBUTE LATCH FAILURE 

0083' 



421 

CROTSO: 



I 

CONTINUE TESTING 

0083 ' 

C6 06 1810 

OE 

422 


MOV 

BYTE PTR CRTADR. CURPSH 

1 


OOBA' 

2E8A 44 01 


423 


MOV 

AL* CS: BYTE PTR 1CSI3 


i AL-TEST PATTERN 

008E ' 

32 06 1813 


424 


XOR 

AL. BYTE PTR RD REG 

1 

G IS CUBOR HIGH WHAT I WROTE 
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0072 ' 

24 

3F 

423 


AND 

AL. 001 11 tllB 

I 

(CURSOR HIGH IS ONLY 6 BITS) 

0094* 

74 

03 

426 


JE 

CR0TS1 

I 

Y: JUMP AROUND EXIT 

0096 ' 



427 

CRHBAD: 



« 

N: THEN CURSOR HIGH FAILURE 

0096 ' 

80 

CA 09# 

428 


OR 

DL. CURERR 

l 

CURSOR ADDRESS REG. FAILURE 

0099' 



429 

GROTS 1: 



1 

CONTINUE TESTING 

0099' 

C6 

06 1810 OF 

430 


MOV 

BYTE PTR CRTADR. CURPBL 

l 


009E ' 

2EBA 44 02 

431 


MOV 

AL. CB: BYTE PTR 2CBIJ 

l 

AL-TE8T PATTERN 

00A2 ' 

38 

06 1813 

432 


CMP 

BYTE PTR RD_REO. AL 

« 

0: 18 CURSOR LOU UHAT I WROTE 

00A6 ' 

74 

03 

433 


JE 

CR0T82 

l 

Y: JUMP AROUND EXIT 

00A8 ' 



434 

CRLBAD: 



l 

N: THEN CURSOR LOW FAILURE 

00A8 ' 

80 

CA 09# 

433 


OR 

DL. CURERR 

i 

AL-CURBOR ADDRESS REG. FAILURE 

OOAB ' 



436 

CR0T82: 



I 

CONTINUE TESTING 

OOAB ' 

46 


437 


INC 

SI 

« 

POINT TO THE NEXT PATTERN TO CHECK 

OOAC ' 

E2 

AD 

438 


LOOP 

CROTBT 

l 

AND TRY AGAIN 




439 

f 








440 









441 

l 

BEGIN TESTING OF THE CRT SCREEN 

RAM AND SIMULTANEOUSLY 




442 

f 

TESTING 

THE ATTRIBUTE MEMORY, 






443 

« 








444 


ASSUME 

EB: CRTDAT 






443 

1 





OOAE ' 

BB 

0000' 

446 

CRHTBT: 

MOV 

AX.CRTDAT 

l 

SET UP E8 ALSO 

OOBI ' 

8E 

CO 

447 


MOV 

EB. AX 

1 

AS CRTDAT 

00B3 ' 

BD 

0100 

448 


MOV 

BP. lOOOOOOOOB 

1 

WALKING ONE 

OOB6 ' 



449 

CRMTSO: 





OOB6 ' 

B9 

07FF 

430 


MOV 

CX.MEMEND 

1 

TEST SCREEN RAM 

00B9 ' 

31 

FF 

431 


XOR 

DI.DI 

l 

SET UP START OF CRT RAM. 

OOBB' 

8B 

F7 

432 


MOV 

SI. DI 

1 

COPY TO 61 FOR LATER. 

OOBD ' 

8B 

C3 

433 


MOV 

AX. BP 

l 

GET WALKING PATTERN TO AX. 

OOBF ' 

01 

EB 

434 


6HR 

AX. 1 

l 

SETUP THE CARRY BIT 

OOCI ' 



433 

CRHT81: 





OOCt ' 

A2 

1800 

436 


MOV 

BYTE PTR ATTLAT.AL 

« 

STORE WALKING ONE IN ATT. MEMORY 

00C4 ' 

AA 


437 


BT08 

BYTE PTR (DIJ 

1 

...AND IN SCREEN MEMORY 

0003' 

DO 

DO 

438 


RCL 

AL. 1 

1 

WALK IT 

0007' 

E2 

FB 

439 


LOOP 

CRMTB1 

» 


0009' 

8B 

DO 

460 


MOV 

BX.BP 

l 

GET INITIAL PATTERN 

OOOB ' 

B9 

07FF 

461 


MOV 

CX.MEMEND 

l 

SIZE OF SCREEN RAM 

OOCE' 

01 

EB 

462 


BHR 

BX. 1 

l 

SETUP THE CARRY BIT 

OODO' 



463 

CRMT82: 





OODO' 

9F 


464 


LAHF 


f 

SAVE FLAGS 

OODI ' 

BA 

04 

463 


MOV 

AL. (SI 1 

1 

GET PATTERN IN AL 

0003' 

38 

C3 

466 


CMP 

BL. AL 

I 

Q: IS THIS OK 7 

0003' 

74 

03 

467 


JE 

CRMTB3 

i 

Y: JUMP AROUND JUMP 

0007' 



468 

RAMBAD: 



1 

N: THEN RAM FAILURE 

0007' 

80 

n 

> 

o 

> 

« 

469 


OR 

DL. CRAMER 

i 

CRT RAM FAILURE 

OODA' 



470 

CRMT83: 



1 

CONTINUE TESTING 

OODA' 

3A 

IE 1800 

471 


CMP 

BL. BYTE PTR ATTLAT 

i 

G: IS ATTRIBUTE OK 7 

OODE' 

74 

03 * 

472 


JE 

CRMTS4 

1 

Y: JUMP AROUND JUMP 

OOEO ' 



473 

ATHBAD: 



1 

N: THEN ATTRIBUTE MEMORY FAILURE 

OOEO' 

o 

o 

CA 06# 

474 


OR 

DL. ATMERR 

1 

ATTRIBUTE MEMORY FAILURE 

00E3' 



473 

CRHTS4: 



l 

CONTINUE TESTING 

00E3 ' 

46 


476 


INC 

61 

l 

NEXT LOCATION 
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00E4 ' 

9E 



477 


SAHF 


1 

00E3' 

DO 

D3 


47B 


RCL 

BL# 1 

1 

00E7 ' 

E2 

E7 


479 


LOOP 

CRMTS2 

1 

00E9 ' 

61 

F3 FFFF 


480 


XOR 

BP# OFFFFH 

i 





401 

1 



l 

OOED ' 

7B 

C7 


482 


JS 

CRMTSO 

i 

OOEF ' 

D1 

ED 


483 


8HR 

BP# 1 

1 

OOF I ' 

73 

C3 


484 


JNB 

CRMTSO 

l 





485 

f 








486 




** 





4B7 

1 

BEGIN 

TESTING OF THE VIDEO OUTPUT 





488 

1 








489 


ASSUME 

E3: CRTDAT 






490 

I 




00F3 ' 

31 

FF 


491 

VIDTST : 

XOR 

DI. DI 

1 

00F3 ' 

B9 

OBOO 


492 


MOV 

CX# 2048 

l 

OOFB ' 

C6 

06 1B00 

OF 

493 


MOV 

BYTE PTR ATTLAT# HIGHAT 

i 

OOFD ' 

BO 

20 


494 


MOV 

AL# SPACE 

f 

OOFF ' 

F2 



493 


REP 


l 

0100' 

AA 



496 


BTOB 

BYTE PTR tDII 

1 

0101 ' 

C6 

06 1B20 

40 

497 


MOV 

BYTE PTR MSCOUT. CDSPEN 

l 

0106' 

B6 

02 


498 


MOV 

DH# 2 

i 

0108' 

BO 

DB 


499 


MOV 

AL# BLOCK 

1 

010A' 

B3 

F7 


300 


MOV 

BL# OF7H 

1 

OIOC ' 




501 

VDTSTO: 




010C' 

FE 

CE 


302 


DEC 

DH 

i 

010E' 

31 

FF 


303 


XOR 

DI# DI 

1 

0110' 

B9 

0030 


304 


MOV 

CX. 80 

l 

0113' 

F2 



303 


REP 



0114' 

AA 



306 


BTOB 

BYTE PTR TDI3 

l 

0113' 

B9 

0002 


307 


MOV 

CX. 2 

l 

OUB' 

BD 

FFFF 


308 


MOV 

BP. OFFFFH 

l 

01 IB ' 




309 

VDTST1: 




OUB' 

4D 



310 


DEC 

BP 

1 

one' 

74 

IE 


311 


JZ 

VBLBAD 

1 

01 IE ' 

F6 

06 1B11 

20 

312 


TEST 

BYTE PTR CRTSTA. CRTVBL 

1 

0123' 

74 

F6 


313 


JZ 

VDTSTl 

l 

0123' 




314 

VDT8T2: 




0123' 

4D 



313 


DEC 

BP 

f 

0126' 

74 

14 


316 


JZ 

VBLBAD 

l 

0128' 

F 6 

06 1BI 1 

20 

317 


TEST 

BYTE PTR CRTSTA, CRTVBL 

1 

012D ' 

73 

F6 


31B 


JNZ 

VDTST2 

l 

012F ' 

E2 

FE 


319 


LOOP 

% 

l 

0131 ' 

3B 

IE 1000 


320 


CMP 

BYTE PTR MSCINP.BL 

i 

0133' 

74 

OB 


321 


JE 

VDTST3 

1 

0137' 




322 

VIDBAD: 



1 

0137' 

80 

CA OB* 


323 


OR 

DL# VIDERR 

1 

013A ' 

EB 

03 


524 


JMP 

SHORT VDTST3 

f 

013C ' 




325 

VBLBAD: 




013C ' 

BO 

CA OC* 


326 


OR 

DL, VBLERR 

i 

013F ' 




327 

VDTBT3: 



1 

013F ' 

OB 

F6 


328 


OR 

DH# DH 

i 
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GET FLAGS 

NEXT PATTERN TO CHECK 
CONTINUE TILL FINISHED 
SET UP FOR WALKING ZERO 
Oi COMPLEMENTED? 

N: JUMP AND TEST AGAIN 

Qi DONE NINE LOOPS YET? 

Ni JUMP AND CONTINUE TESTING 


START OF SCREEN MEMORY 
SET UP CX FOR REP 
ATTLAT - HIGH INT. 

PUT A BLANK IN AL 
DI-MEMBEG 

CLEAR SCREEN MEMORY 

ENABLE CRT FOR VIDEO TEST 

DH - TEST COUNT 

AL=BLOCK CHARACTER 

TEST PATTERN FOR A BLOCK CHAR. 

DH « NUMBER OF CURRENT TEST 
GET BEGIN OF MEMORY 
CX«BO CHARACTERS TO WRITE 

WRITE BO BLOCK CHARS. TO SCREEN 
CX=23u» LOOP COUNT 


TRAP IN CASE CRTVBL IS NOT WORKING 
0: VERTICAL BLANK ?? 

N: WAIT UNTIL BLANK 


TRAP IN CASE CRTVBL IS NOT WORKING 
Q: VERTICAL NON-BLANK ?? 

N: WAIT UNTIL NON-BLANK 
Y: START 23u» TIMEOUT 
Q: VIDEO LOOPBACK » TEST PATTERN ?? 
Y: JUMP AROUND BRANCH 

N: THEN VIDEO FAILURE 

VIDEO FAILURE 


VERTICAL BLANKING INTERRUPT BAD 
CONTINUE TESTING 
0 LAST TEST ?? 
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0141 ' 

74 06 

329 


JE 

C INTST 

1 Y: THEN 00 TEBT THE CRT INTERRUPT. 

0143 ' 

BO 20 

330 


MOV 

AL. SPACE 

1 N: THEN TEBT A BLANK CHAR. 

0143' 

B3 FO 

331 


MOV 

BL» OF OH 

l TEST PATTERN FOR A BLANK 

0147' 

EB C3 

332 


JMP 

SHORT VDTBTO 

l 00 TEST WITH DIFFERENT CHAR. 



333 

« 






334 







333 

1 

TH1B PERFORMB A TEST OF THE CRT 

INTTERUPT 



336 

1 






337 


ASSUME 

DS: CRTDAT# ES: ABSO 




330 

1 




0149' 


939 

CINTOT: 




0149' 

06 

340 


PUSH 

ES 

1 SAVE ES 

014A ' 

31 DB 

341 


XOR 

BX. BX 

• BET UP EB 

014C ' 

BE C3 

342 


MOV 

EB. BX 

1 AS ABSO 

01 4E ' 

B9 1300 

343 


MOV 

CX.CINT1M 

• WAIT COUNT FOR CRT INTERRUPT 

0131' 

FA 

344 


CLI 


1 DISBALE INTERRUPTS 



343 

• 




0132' 

IE 

346 


PUSH 

DS 

i i i SAVE DS 

0133' 

2E0E IE C100 

347 


MOV 

DS. WORD PTR CB: DSADDR+CBWRAP i BET UP DB AS ROMDAT 

0130' 

EB 0003- 

340 


CALL 

PRTRST 

in REBET PRINTER NMI 

013B ' 


349 


POP 

DS 

ill RESTORE DS 

01 3C ' 

26BB IE OOOQ 

330 


MOV 

BX. ES: WORD PTR <NMIINT«4> m SAVE CURRENT NMI VECTOR 

0161' 

26C7 06 0000 01D0- 

331 


MOV 

ES: WORD PTR (NMUNTM). 

OFFBET CRTVCT • 1 1 CRT INT VECTOR 

016B' 

B4 FF 

332 


MOV 

AH. OFFH 

III FLAG TO CHECK FOR INTERRUPT 

016A' 

C6 06 102u 00 

333 


MOV 

BYTE PTR MSCOUT. CINTEN 

III ENABLE CRT INTERRUPTS 

016F ' 

E2 FE 

334 


LOOP 

% 

III WAIT FOR INTERRUPT 

0171' 

C6 06 1020 40 

333 


MOV 

BYTE PTR MSCOUT. CD8PEN 

ill DISABLE CRT INTERRUPTS JUST IN CABE 

0176' 

BO FC OO 

336 


CMP 

AH. OOH 

III Q: DID IT OCCUR 7 

0179' 

74 03 

337 


JE 

CINTBO 

ill N: THEN CONTINUE 

017B ' 

00 CA 00# 

330 


OR 

DL.C INTER 

I • l CRT INTERRUPT ERROR ? 

017E ' 

2609 IE 0000 

339 

CINTBO: 

MOV 

ES: WORD PTR <NMIINT«4>. 

BX III RESTORE NMI VECTOR 

0103' 

07 

360 


POP 

ES 

ill RE8T0RE E8 



361 


ASSUME 

DS: ROMDAT 

i i i 

0104' 

IE 

362 


PUSH 

DS 

i i i SAVE DS 

0103' 

2EBE IE C100 

363 


MOV 

DS. WORD PTR CB: DSADDR+C6WRAP i BET UP DS A6 ROMDAT 

01 OA' 

00 OE 0010- 00 

364 


OR 

PRCO_M» PAR IEN 

ill RE-ENABLE PARITY NMI INTERRUPT 

01BF ' 

AO 0010- 

363 


MOV 

AL.PRCO M 

l I i 

0192' 

E6 03 

366 


OUT 

PRCO P. AL 

I l l 

0194' 

IF 

367 


POP 

DS 

1 i i RESTORE DS 

0193' 

FB 

360 


BTI 


l i l INTERRUPTS BACK ON 



369 

l 






370 







371 

f 

TESTINO 

COMPLETE!!! ALL TESTS 

PASSED WITH HONORS. 



372 

i 




0196' 


373 

TSTEND: 




0196' 

EO 0047 

374 


CALL 

CRTHLT 

i 00 BEE IF ANY ERRORS OCCURRED 

0199' 

EQ 0003- 

373 


CALL 

DECLED 

l TESTS PASSED YEA! ! ! ! ! 

019C ' 

EB 0003 ' 

376 


CALL 

CRT INI 

l LEAVE CRT FULLY INITIALIZED 

019F ' 

E9 0004- 

377 


JMP 

MSCTST 

l GO TO MISCELLANEOUS TEST ROUTINE 



370 

« 






379 







300 

l 










> 




■> 


■> 


) 


) 


) 
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MAIN CRTTST. BRC 





3B1 

1 CRTINI - THIS 

IS THE CRT FULL INITIALIZATION SUBROUTINE. 




582 

1 








583 

i 

INPUT - 

NONE 






584 

i 








583 

l 

OUTPUT 

- CRT INITIALIZED 






586 

i 








587 

i 

REGISTERS USED - ALL REGISTERS 

PRESERVED 




38B 

i 








589 

i 

STACK USED - 






390 

i 








391 




tm 





592 

1 


, 




-01A2 

393 


SECT 

ROMCOD 






594 


ASSUME 

C0: ROMCOD, DS ROMDAT 






593 


ASSUME 

ES: CRT DAT 

l 





396 

1 





01 A2 * 



397 

CRTINI 

PROC 

NEAR 



01 A2 ' 

re 


59B 


CLD 


f 

CLEAR DIRECTION FLAG 

01 A3 ' 

37 


399 


PUSH 

DI 

» 

SAVE DI 

01 A4 # 

36 


600 


PUSH 

SI 

l 

SAVE SI 

01 A3 9 

IE 


601 


PUSH 

DS 

i 

SAVE OLD DS 

01A6 * 

06 


602 


PUSH 

ES 

i 

SAVE OLD ES 

01 A7 9 

53 


603 


PUSH 

BX 

i 

SAVE BX 

01 A8 # 

EB 

FE33 

604 


CALL 

INICRT 

1 

GO AND INIT THE CRT 

01 AB 9 

2EBE IE CIBO 

603 


MOV 

DS, WORD PTR CS: DSADDR+CBWRAP i SET UP DS AS ROMDAT 

01 BO * 

31 

CO 

606 


XOR 

AX, AX 

1 

Clear AX 

01 B2 9 

BB 

26 0019- 

607 


MOV 

RETFLQ. AH 

1 


01 B6 * 

BB 

26 0013- 

60B 


MOV 

CRTHLD, AH 

1 

INITIALIZE 

01 BA * 

C7 

06 0013" 400B 

609 


MOV 

CURTYP, 400BH 

i 


01C0' 

A3 

001 B" 

610 


MOV 

8TATLN, AX 

1 

LOCAL - 

01C3 * 



611 

INILST : 



l 


01C3 ' 

A3 

0014- 

612 


MOV 

CURPOB, AX 

i 


01C6 # 

A3 

001 A- 

613 


MOV 

THSLIN, AX 

i 


01C9 9 

A3 

001 6** 

614 


MOV 

DISBEG, AX 

< 

STORAGE - 

01CC' 

C7 

06 0017" 07CF 

613 


MOV 

DISEND, 07CFH 

i 


01D2 9 

A3 

ooii- 

616 


MOV 

CRTCNT , AX 

1 


01D3' 

E9 

0001- 

617 


JMP 

CRTRET 

l 

RETURN TO CALLER 




61 B 

i 








619 




«*« 





620 

i 

THIS IS 

THE CRT INTERRUPT LOGIC 






621 




««« 





622 

i 





01 D8' 



623 

CRTVCT: 





01 DB 9 

C6 

06 1B20 40 

624 


MOV 

BYTE PTR MSCOUT, CDSPEN 

i 

DISABLE CRT INTERRUPTS 

01 DO 9 

B4 

00 

623 


MOV 

AH, OOH 

1 

CLEAR AH 

01DF 9 

CF 


626 


IRET 


) 

RETURN FROM INTERRUPT 




627 

I 







\ 

628 









629 

i 

THIS ROUTINE IS CALLED UPON COMPLETION OF ALL CRT TESTS. 




630 


IT CHECKS TO SEE IF ANY ERRORS 

HAVE OCCURRED UP TILL NOW. 




631 


IF NO ERRORS HAVE OCCURRED THEN 

11 

RETURNS, HOWEVER IF 




632 

i 

THERE WERE ANY ERRORS THEN THEY 

ARE OUTPUT TO THE PARALLEL 
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MAIN CRTTBT. BRC 


PRINTER PORT AND A JUMP TO DSPDIE IB PERFORMED WHERE THE 
THE ERROR IB PUT TO THE SCREEN I ACADEMIC AT THIS POINT I 
AND ALL TESTING HALTS!!! 

NOTE: BEE MODULE TBTERR. SRC FOR POSSIBLE ERROR CODES. 


633 

634 
639 

636 

637 
63B 
639 


01E0' 



640 

01E0 9 

OB 

D3 

641 

01E2 9 

74 

03 

642 

01E4 * 

BO 

0D» 

643 

01E6' 

E9 

0002- 

644 




649 

01E9 0 

C3 


646 


647 

648 


CRTHLT: 

OR DL* DL 

JE HLTRET 

MOV AL» LED010 

JMP DSPDIE 

l 

HLTRET: RET 

i 

END 


• Q: ANY ERRORS TO REPORT 77 
I N: THEN RETURN 
l AL - CRT ERROR CODE - LED'B 
I 00 DISPLAY ERROR AND DIE 

I 00 BACH - NO ERRORS 


No orroro Itttc.tl 
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1 i »»«»»••»«*»»*««»»«•*«••«»«**»*»»**«*•»»*«»»»*»#«•*•*»*»#«»»•**»*«*»»»« 

2 i TITLE - DKBOOT - Disk boot routine 

3 i ABSTRACT - This logic is responsible for reading the first sector 

4 i (The BOOT sector) from the disk* checking its validity and then 

3 i transferring control to BOOTLO (the first location of the data 

6 i just read ) . 

7 i 

9 NAME DKBOOT - Disk boot routine 

10 i #**#**#»**********#*»«**#»**•#»»********#***##***»**#******#»*»«*«**•* 

It i PUBLIC DEFINITIONS 

12 i #**##*»*****#«**»*#*»***#**«•** eses#***#*#***#*****###**********#*#*** 

13 i 

14 PUBLIC DKBOOT 

13 PUBLIC PROMPT 

16 i 

17 • #***#»**#********«**»*##****#**»«*• »e«»«»»e»«e»*««*»e»#»e»»»»»»««»eee« 

18 I EXTERNAL REFERENCES 

20 i 



21 


EXTRN 

BOOTSZ: ABS 

I 

Boot sector site 

(SYSORO) 


22 


EXTRN 

DBCERR : ABS 

1 

Bad CRC on boot sector error code 

(ROMERR) 


23 


EXTRN 

DCRERR: ABS 

i 

CRC error code 

(RDMERR) 


24 


EXTRN 

DFMERR: ABS 

l 

Disk format error code 

(ROMERR) 


23 


EXTRN 

DN I ERR: ABS 

1 

'No drives installed' error code 

(ROMERR) 


26 


EXTRN 

DNRERR : ABS 

< 

'Disk not ready' error code 

(ROMERR) 


27 


EXTRN 

DNSERR: ABS 

1 

'Not a T I system disk' error code 

(ROMERR) 


2Q 


EXTRN 

DSKERR : ABS 

1 

Seek error code 

(ROMERR) 


29 


EXTRN 

DSNERR: ABS 

1 

Sec tor-not-f ound error code 

(ROMERR) 


30 


EXTRN 

DUNERR: ABS 

1 

'Disk error' (unknown) error code 

(ROMERR) 


31 


EXTRN 

DDMERR: ABS 

i 

DRG error 

(ROMERR) 


32 

f 







33 


EXTRN 

DSPERR: NEAR 

1 

System error display routine 

(OUTPUT) 


34 


EXTRN 

CR TOUT: NEAR 

i 

System error display routine 

( CRTDSR ) 


33 


EXTRN 

BOOTLO: FAR 

1 

First instr of boot sector 

(SYSORG) 


36 


EXTRN 

FLUSH: NEAR 

1 

Keyboard buffer flush routine 

(KEYDSR ) 


37 


EXTRN 

KEY IN: NEAR 

i 

Keyboard character input routine 

(KEYDSR) 


30 


EXTRN 

LBEEP: NEAR 

l 

Long (error) beep routine 

( BELDSR ) 


39 


EXTRN 

MSG: NEAR 

1 

CRT string output routine 

(OUTPUT) 


40 


EXTRN 

ROMTST: NEAR 

i 

CRC checking routine 

(PUPTST ) 


41 


EXTRN 

SBEEP: NEAR 

J 

Short beep routine 

(BELDSR) 


42 

l 






*0000 

43 


SECT 

ABSO 





44 


A9SUME 

CS: ABSO 





43 


EXTRN 

BOOTMV: BYTE 

> 

Location of boot sector In memory 

(SYSORO) 


46 

i 






*oooo 

47 


SECT 

ROMDAT 




% 

48 


EXTRN 

SYSCON: WORD 

i 

System Configuration word 

(ROMDAT) 


49 

i 







30 

i «#» 







31 

I 


LOCAL 

CONSTANTS 



32 

i «#* 



» s« « 
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93 i 

-OOOD 94 CR EOU ODH 

*000 A 99 LF EQU OAH 

96 

97 
9B 
99 
60 
61 
63 

63 

64 

302 

303 I CODE SEGMENT DEFINITION 

304 i ***************************** ***************** 
309 i 

*0000 306 SECT ROMCOD 

307 ASSUME CS: ROMCOD 

308 i 

309 » ********************************************** 

310 » LOCAL DATA AREA 

31 1 i ********************************************** 

312 i 


INCLUDE PEO: DSKERR. EQU 
INCLUDE PEO: DSKOPS. EQU 
INCLUDE PEO: BYSCELL. EQU 
INCLUDE PEO: BYSCON. EQU 
INCLUDE PEO: CRTOP. EQU 
INCLUDE PEO: VECTOR. EQU 


0000" 

OD 

OA OA 

90 

6C 

69 

313 

INBMSO 

DB 

CR»LF#LF# 'Please insert system disk and' 


0006' 

61 

73 69 

20 

69 

6E 






OOOC ' 

73 

69 72 

74 

20 

73 






0012' 

79 

73 74 

69 

6D 

20 






00 IB ' 

64 

69 73 

6B 

20 

61 






00 IE ' 

6E 

64 









0020' 

OD 

OA 93 

74 

72 

69 

314 

PROMPT 

DB 

CR» LF. 'Btr i ke any key when ready ... SO 


0026' 

6B 

69 20 

61 

6E 

79 






002C ' 

20 

6B 69 

79 

20 

77 






0032' 

68 

69 6E 

20 

72 

69 






003B ' 

61 

64 79 

20 

2E 

2E 






003E ' 

2E 

00 









0040' 

20 

6F 6E 

20 

44 

72 

319 

DRVMSQ 

DB 

' on Drive '# 0 


0046' 

69 

76 69 

20 

00 













316 

1 


* 








317 

i Error code 

mapping table to take Disk DSR errors to System error 

codes. 







318 

i Eack 

entry 

consists of 2 bytes - first byte is error code from disk 







319 

i 

DSR* second byte is the boot error code to be displayed on the 







320 

i 

CRT as 

'** System Error ** - mi on Drive s'. 








321 

i 

En tr i es 

marked with '* ' are either hardware failures or errors 







322 

i 

which will never happen since I control the interface to the 

DSR. 







323 

i 




004B ' 

40 

OB* 




324 

ERRTAB 

DB 

DKSEEH. DSKERR i Seek failed - track not found 


004D ' 

10 

03* 




329 


DB 

DKCRCE. DCRERR i CRC .rror on r.ad 


004F ' 

OB 

OB* 


\ 


326 


DB 

DKDMAE, DDMERR i Data request error - controller failure 

0091 ' 

04 

09* 




327 


DB 

DKRNFE. DSNERR I Sector not found error 


0093 ' 

02 

04* 




32B 


DB 

DKFMTE# DFMERR i Timeout - no data error - bad disk 

format 

0039' 

07* 07* 




329 


DB 

DNBERR, DNSERR i Not a TI disk error. 


0097' 

20 

OA* 




330 


DB 

DKFAILi DUNF.RR i * Controller hardware failure 
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331 

l 

DB 

DKNRDYa DNRERR 

i Controller timeout - disk not ready 




332 

l 

DB 

DKCMDE. DUNERR 

i • Command error ~ bad command passed 




333 

» 

DB 

DKWPRT. DUNERR 

i * Write protect error 




334 

f 

DB 

DKVFYE, DUNERR 

i * Data verification error 




339 

I 

DB 

DKBOUN* DUNERR 

i * 1/0 transfer crosses 64k boundary 




336 

• 





-0007 

337 

ERRT8Z 

EOU 

(f~ERRTAB>/2 

i Table site 




338 








339 

1 


MODULE 

ENTRY POINT 




340 








341 

i 







342 

1 DKBOOT - This routln* gets 

control after powerup initial 1 tat ion in order 




343 

i 





344 

i 

dill Into memory* and 

transfers control it. 




349 

l 







346 

i INPUT: (non* ) 





347 

1 OUTPUT: BL 

- Drlv* to toot 

from 




348 

1 

(tranifiri control 

to the code loaded from the boot sector) 




349 

l USED: 






390 

f STACK: 






391 

ASSUME 

CB: ROMCODg DB: 

ROMDAT. E8: ABBO 




392 

l 







393 

l 

Chec t 

If any drtv*« ar* installed. If not* report the system error 




394 

f 

and wait forever. 





399 

l 




009? ' 



396 

DKBOOT 

PROC 

NEAR 


0099 ' 

31 

DB 

397 


XOR 

BX.BX 


009B ' 

8E 

C3 

398 


MOV 

EB. BX 

« Bet up EB to ABBO 

0090 ' 

2E8E IE CI80 

399 


MOV DB 

.WORD PTR CB: D9ADDR+CBWRAP f Bet up my DB 

0062 * 

AO 

0016- 

360 


MOV 

AL. BYTE PTR 9YBCON l Look at floppy drive status 

0069' 

24 

OF 

361 


AND AL 

• DR0M6K+DR1MSK+DR2MSK+DR3M8K 




362 




< 0: Are any drives Installed? 

0067' 

79 

OA 

363 


JNZ 

DKBO 

f Y: Continue toot process. 

0069' 

BO 

09* 

364 


MOV 

AL. DNIERR 

i N: 'No drives' error code 

006B ' 

E8 

oooc- 

369 


CALL 

DSPERR 

i Display the error 

006E ' 



366 

WAITLP: 




006E ' 

EB 

0010- 

367 


CALL 

KEY IN 

I Walt for any key 

0071 ' 

EB 

FB 

368 


JMP 

WAITLP 

i Loop forever (til they hit reset) 




369 

I 







370 

i 

Trg to 

toot from an installed drive. If successful* do not return. 




371 

f 

If NOT 

successful* try 

the neit installed drive. 




372 

f 

If no 

drive Is successful* Prompt user for a disk Installation. 




373 

i 




0073' 

30 

DB 

374 

DKBO: 

XOR 

BL. BL 

i Bet Initial boot drive to 00 

0079' 

AO 

0016- 

379 


MOV 

AL* BYTE PTR BYBCON f Get conf iguratlon byte. 

0078 ' 

DO 

EB 

376 

DKB1: 

8HR 

AL. 1 

i Q: Is drive installed ? 

007A' 

73 

07 

377 


JN8 

DKB2 

i N: Try another 

007C ' 

90 

% 

378 


PUSH 

AX 

i Y: Save state 

0070 ' 

93 


379 


PUSH 

BX 


007E ' 

E8 

001C 

380 


CALL 

BOOTDR 

I Boot this drive 

0081' 

9B 


381 


POP 

BX 

i restore state 

0082 ' 

98 


382 


POP 

AX 
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0003 ' 

FE 

C3 

303 

DKB2: 

INC 

BL 

i Try nert driva 

0009 ' 

00 

FB 04 

304 



CMP 

BL. 4 

i Qi Tryad all driva*? 

0088' 

79 

EE 

309 



JNZ 

DKBt 

i Ni Jump and continua 

008A ' 

BO 

06* 

306 



MOV 

AL. DNRERR 

i Not abla to boot error. 

008C' 

E0 

000C M 

307 



CALL 

DSPFRR 

i Baap tha arror ball 

OO0F ' 

BE 

oooo- 

300 



MOV 

SI, OFFSET INSMSO 

i Point to 'InseTt disk' masaaga 

0092 ' 

E0 

0012- 

309 



CALL 

MSG 

i and print it (with 'any hay' prompt) 

0099' 

E0 

OOOF" 

390 



CALL 

FLUSH 

I Empty tha keyboard buffer 

0090' 

E0 

0010" 

391 



CALL 

KEYIN 

i Wait for any key 

009B ' 

EB 

D6 

392 



JMP 

SHORT DKBO 

i Try boot again 




393 

I 








394 

l 


Do a 

comp lit# boot action from this drive. 




399 

i 





009D ' 



396 

BOOT DR : 




009D ' 

26C6 06 0000- 00 

397 



MOV 

ES BOOTMV+BOOT ID* 00 

i Insure ID isn't there from last time 

00A3 ' 

06 


398 



PUSH 

ES 


00A4 ' 

93 


399 



PUSH 

BX 

i Sava boot drive 

00A9 ' 

BO 

01 

400 



MOV 

AL, 1 

i Ona sector to load 

00A7 ' 

B9 

00 

401 



MOV 

CH, 0 

i Starting at track 0 

00A9 ' 

B 1 

01 

402 



MOV 

CL. 1 

i ... sac tor 1 

OOAB ' 

0A 

03 

403 



MOV 

DL, BL 

i Boot from available driva 

OOAD ' 

B6 

00 

404 



MOV 

DH. 00 

i Head 0 

OOAF ' 

B4 

02 

409 



MOV 

AH. DKREAD 

9 Sector read function 

OOBI # 

BB 

0019" 

406 



MOV 

BX. OFFSET BQQTMV 

i Transfer offset (segment already sat) 

OOB4 ' 

CO 

40 

407 



INT 

DSKINT 

f Get tha sector 

00B6 ' 

9B 


408 



POP 

BX 

i Restore boot drive 

00B7 ' 

07 


409 



POP 

ES 


OOB0 ' 

72 

2C 

410 



JB 

CHKERR 

I Quit if arror 




411 

I 








412 

i 

Chick CRC 

of boot •actor: 





413 

i 




i (ES already set to ABSO) 

OOBA' 

93 


414 



PUSH 

BX 

i Save tha boot drive 

OOBB' 

BB 

0019" 

419 



MOV 

BX, OFFSET BOOTMV 

i Offset of boot sector 

OOBE' 

BD 

0001 • 

416 



MOV 

BP, BOOT9Z 

i Size of sector 

OOCI ' 

E0 

0013" 

417 



CALL 

ROMTST 

i Q: Does tha CRC calculate OK ? 

00C4 ' 

9B 


410 



POP 

BX 

i Save tha boot driva 

00C9' 

74 

OA 

419 



JZ 

CHKID 

i Y: Go on and check tha ID 

00C7' 

2603 3E OOOO" 00 

420 



CMP 

WORD PTR ES: BOOTMV+BOOCRC, OOOO 1 Q: Wall, 1* tha 'CRC' - 0000? 




421 





i (this allows pre-CRC disks) 

OOCD ' 

BO 

02* 

422 



MOV 

AL. DBCERR 

i ('Bad CRC on boot sector' error coda) 

OOCF ' 

79 

2B 

423 



JNE 

CHKERX 

i N: Blow it off with the error 

0001 ' 



424 

CHKID: 



i Y: Continue 

OODI ' 

2601 3E 0000 M 6974 

429 



CMP WORD PTR E8: BOOTMV+BOOTID 

. 'it' 




426 





i Q: Is boot sector ID - 'ti' 7 

OOD0' 

BO 

07* 

427 



MOV 

AL, DNSERR 

i 'Not a TI system disk' error code 

OODA' 

79 

20 

420 



JNE 

CHKERX 

i N: error 

OODC ' 

E0 

0014" 

429 



CALL 

SBEEP 

i Beep the bell before going to boot 

OODF ' 

93 

\ 

430 



PUSH 

BX 

i Save boot drive 

OOEO ' 

9A 

OOOE" OOOO" 

431 



CALL 

BOOTLO 

i *«# EXIT *** to boot routine 

00E9 ' 

9B 


432 



POP 

BX 

» Should return to here only if ERROR 




433 

i 


JMP 

SHORT CHKERR 

1 




434. 

i 
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439 

l 

Thii routine print* the error meeeage for a eyetem error on boot 



436 

I 




00E6' 


437 

CHKERR: 




00E6 ' 

BO FC BO 

43B 


CMP 

AH. DKNRDY 

i Q: Wee the error 'Diet not reedy' 

OOE9 ' 

74 24 

439 


JZ 

CE9 

« Y: Don't report ee en error 



440 




i end let them try eyein* 

OOEB ' 

BE 0049" 

441 


MOV 

BI. OFFSET ERRTAB-2 

i Point to error treneletion teble 

OOEE ' 

B9 0007 

442 


MOV 

CX. OFFSET ERRTSZ 

i Blie of teble. 

OOF 1 ' 


443 

CE1: 




OOF 1 9 

46 

444 


INC 

81 

l Point to next entry 

00F2 ' 

46 

449 


INC 

SI 


00F3 # 

2E3A 24 

446 


CMP 

AH. BYTE PTR CB: 1811 

i Q: Ie thie the error ? 

OOF 6 ' 

EO F9 

447 


LOOPNZ 

CE1 

i N: Point to next entry 

00F8' 

46 

44B 


INC 

81 

« Y: Point to treneletion 

00F9 ' 

2EBA 04 

449 


MOV 

AL. CB: C9I1 

» Get new error code 

OOFC ' 

93 

490 

CHKERX: 

PUSH 

DX 

f Save drive number 

OOFD ' 

EB OOOC" 

491 


CALL 

DSPERR 

f Dieplay the error 

0100' 

BE 0040" 

492 


MOV 

SI. OFFSET DRVM80 

i Drive meeeage 

0103' 

EB 0012" 

493 


CALL 

MSO 

i Print it 

0106 ' 

90 

494 


POP 

BX 

f Get drive number 

0107 ' 

BB 0E41 

499 


MOV 

AX.CRTWTY»100H+'A' 

i Format number 

010A' 

OO D8 

496 


ADD 

AL. BL 

f 

010C ' 

EB OOOD" 

497 


CALL 

CRTOUT 

9 Print It. 

OIOF ' 

C3 

49B 

CE9: 

RET 


9 



499 

f 






460 


END 
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1 i **#**#**»##*»*»«»*#*##»*###»##»*«#**#»*##*#*#»#*#»»»###*»##**#**##### 

2 • TITLE - DRVTST - Disk drive test routine 

3 i ABSTRACT - This module is responsible for determining the number of 

4 i disk drives in the system. 

9 i »»»»#«•*««««*««»•«»»»»»««»»#«»«»»»««« «««««* **»«»«««»»«»»« 

6 NAME DRVTST 

7 i SUBTTL 

9 I PUBLIC DEFINITIONS 

10 i «**»#*#*#«#*##**#*#*#****#**«*««#*#*»*#*****»****#»*»*#*«**««#*»»*»** 

11 I 

12 PUBLIC DRVTST 

13 I 

14 i •«•*«»««««»»«»«»* »•»«»*«« »««««»«« *»««•» »»«#»*»»««»«» »»««»»«»» *»»*«««!. 

19 i EXTERNAL REFERENCES 

16 f ********************************************************************* 

17 i 



10 

19 | 

20 

EXTRN 

DELAY: NEAR 

i 1 millisecond delay routine 

(ROMUTL ) 

-0000 

SECT 

ROMDAT 




21 

EXTRN 

DSKS_M: BYTE 

i RAM copy of disk select port 

< ROMDAT) 


22 

EXTRN 

SYSCON: WORD 

i System configuration word 

(ROMDAT) 


23 I 

24 i LOCAL CONSTANTS 

26 i 

-0001 27 BSYMSK EQU OOOOOOOIB i Busy bit mask in FDC status reg 

“0004 20 TROMSK EQU OOOOOIOOB I Track O bit mask in FDC status reg 

“0096 29 NUNS TP EQU 06 I Number of steps to be performed during recal 

30 » 

“0061 31 BTOCMD EQU 61H I FDC STEP OUT command <12 msec* no verify) 

“OOIO 32 SKNCMD EQU 10H ) FDC seek command <6 msec, no verify) 

33 i 

34 i INCLUDE PEG: PORTADDR. EQU 

39 i INCLUDE PEO: LATCHES. EQU 

36 • INCLUDE PEO: FLOPPY. EQU 

37 i INCLUDE PEO: SYBCON. EQU 

30 

100 i *«*«**#**#**#*«*#*#«******»*»***»***«##**»«********»#*#»**#***#*#*#*«»##»**** 

109 i CODE SEGMENT DEFINITION 

190 i »*####****«***#*«*#*******#****## *«##**»#**###****#***********#**»****»ii****« 

191 i 

-0000 192 SECT ROMCOD 

193 ASSUME CS: ROMCOD 

194 i 

196 I MODULE ENTRY POINT 

' 197 i ******#*«**#*#»*«#*** *«»* »«*« ***»*«*»*» assess »»»•»»»«»« as *#** »«»«»«»* «««««*«» 

190 i 

199 i DRVTST - This routine determines the number of operative floppy drives 

200 i in the system. This is done by attempting a restore operation on 

201 i the drives and watching for TRACK 00 indication. 
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0000 " 

0000 ' 

0002 ' 

0004' 


0007' 
0009 ' 
OOOB ' 
OOOD ' 
OOOF ' 
0011 ' 


0014' 

0016' 
0018' 
001 A ' 
001 C' 
001E ' 


0021 ' 

0023' 
0025 ' 
0027' 
002A ' 
002C ' 
002E ' 
0030' 


202 




203 

1 

At the point this routine 

is normally called during system powerup 



204 

1 

initialization* the floppy 

controller test has been performed, and 



205 

1 

the 

controller should be ' 

settled- 

-down 



206 

1 







207 

1 

Note 

that this routine handles all 

four drives. Also* 



200 

1 

the 

motors are not turned 

on during these operations. 



209 

l 







210 

1 

INPUT: 

Sector buffer control 

bits set so that the CPU can talk to the 



211 

I 


floppy disk controller 




212 

1 


DS pointing to ROMDAT 





213 

f 

OUTPUT: 

All drives restored and SYSCON updated to indicate installed 



214 

1 


drives 





215 

f 

USED: 

aiibiici«di 





216 

1 

STACK: 






217 

Tin 


ASSUME 

CB: ROMCOD. OB: ROMDAT 





tL ItS 

1 — — 







219 

DRVTBT PROC 

NEAR 



BO 

FO 

220 


MOV 

AL. OFOH 

i 

All motors on and all drives selected 

E6 

04 

221 


OUT 

DSKS_P, AL 

i 

Select all drives 

EB 

0049 

222 


CALL 

CLRFDC 

i 

Clear the controller 



223 

i 







334 

I 

Need to 

step in at least 4 steps in case the head is outside track 00 



225 

i 





30 

CO 

226 


XOR 

AL. AL 

i 

0 

1 

-J 

< 

E6 

21 

227 


OUT 

FDCTRK. AL 

i 

Fake current track - 00 

BO 

04 

22B 


MOV 

AL. 4 



E6 

23 

229 


OUT 

FDCDAT. AL 

i 

Fake destination track ■ 04 

BO 

io 

230 


MOV 

AL. BKNCMD 

i 

Set up Seek with no verify command 

EB 

0048 

231 


CALL 

DOjCMD 

i 

Oo do it. 



232 

I 







233 

« 

Recalibrate the drive: 





234 

« 




j 

B6 

FO 

235 


MOV 

DH. OFOH 

i 

All motors on and all drives selected 



236 




> 

Select all four drives 

B4 

56 

237 


MOV 

AH. B6 

i 

Restore for B6 tracks 

BA 

C6 

23B 

CD2 

MOV 

AL. DH 

i 

Select the drive 

E6 

04 

239 


OUT 

DSKS_P» AL 

i 


BO 

61 

240 


MOV 

AL. STOCMD 

i 

Restore the drive at 6 milliseconds 

EB 

003B 

241 


CALL 

DOjCMD 

i 

go do it. 



242 

i 







243 

i 

CHECK ALL FOUR DRIVES FOR 

TROO 




244 

I 





B2 

F7 

245 


MOV 

DL. DRSEL3 OR OFOH 

i 

Start with drive 3 



246 

i 





BA 

C2 

247 

CD4: 

MOV 

AL. DL 

i 

Select the drive 

E6 

04 

248 


OUT 

DSKS_P » AL 

f 


E8 

0026 * 

249 


CALL 

CLRFDC 

i 

Go get the drive status 

AB 

04 

250 


TEST 

AL. TROMSK 

i 

Oi are we at track OO? 

74 

06 

251 


J Z 

CDS 

i 

Ni Continue. 

F 6 

02 

252 


NOT 

DL 

i 

Y; Disable stepping on this drive 

OB 

06 

253 


OR 

DH. DL 

J 

By killing the select for restore 
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003a * 

F6 

oa 

234 


NOT 

DL 

1 

restore tense of select 

0034' 

DO 

CA 

233 

CDS: 

ROR 

DL. 1 

« 

Qj All drives checked? 

0036' 

7 a 

EB 

236 


JB 

CD4 

1 

Ni Try next drive 




237 

f 




0038 ' 

FE 

CC 

23B 


DEC 

AH 

» 

Q: Finished seeking? 

003A' 

73 

DC 

239 


JNZ 

CD2 

i 

N: Continue 




260 

i 








261 

i 

FINISHED RESTORING. 






362 

I 





003C 9 

80 

E6 OF 

263 


AND 

DH» DRVHSK 

1 


003 F' 

BO 

36 0003" FO 

264 


AND BYTE PTR BYBCON. NOT DRVHSK 

l 

Nask out the diskdrive bits 

0044 ' 

OB 

36 0003" 

263 

i 

OR 

BYTE PTR BYBCON. DH 

l 

OR in the Installed drive bits 




366 

« 





0040' 

BO 

OF 

267 


NOV 

AL. OFH 

1 

Turn off everything 

004 A # 

A3 

0002" 

268 


NOV 

DBKB_H. AL 

1 

After all this messin' around. •• 

004D ' 

E6 

04 

269 


OUT 

DBKB_P. AL 

1 

Nake sure to restore the select latch 

004F ' 

C3 


270 


RET 


1 

««« RETURN 




271 









272 

« 








273 

l 

Clear 

tha disk controller and 

eet 

status into AL. 




274 

« 





0030' 



273 

CLRFDC 

PROC 

NEAR 



0030 ' 

BO 

DO 

276 


NOV 

ALr FORCED 

i 

Clear the controller 6 return status 

0032' 

E6 

20 

277 


OUT 

FDCCND. AL 

i 

... and force Type 1 status 

0034' 

B9 

OOOA 

27B 


NOV 

CX. lO 

i 

10 • 3.4 usec/loop ■ 34 usee 

0037' 

E2 

FE 

279 


LOOP 

• 

i 

Delay for FDC status to become valid 

0039' 

E4 

20 

2B0 


IN 

AL. FDCBTA 

i 

Look at status reg 

0030 ' 

C3 


20 1 


RET 


f 

**e RETURN see 




2B2 

l 








203 

l 

EXECUTE A FLOPPY DISK CONNAND 






204 

1 





003C ' 



203 

DO_CHD 

PROC 

NEAR 



003C ' 

E6 

ao 

206 


OUT 

FDCCND, AL 

i 

Do It 

003E' 



207 

CD1: 





003E ' 

B9 

OOOA 

200 


NOV 

CX. 10 

i 

10 * 3.4 usec/loop - 34 usee 

0061 ' 

E2 

FE 

209 


LOOP 

% 

i 

Delay for FDC status to become valid 

0063' 

E4 

ao 

290 


IN 

AL. FDCBTA 

f 

Look at floppy status 

0063' 

AB 

01 

291 


TEBT 

AL. BBYNSK 

i 

Q: Is controller still busy ? 

0067' 

73 

F3 

292 


JNZ 

CD1 

i 

Y: Spin till not busy 

0069' 

C3 


293 


RET 


i 

N: Return to user 




294 

i 








293 


END 





No irrori 4«t«ct«i 


i 
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% 


A 

2 

3 

4 
3 
6 
7 
0 
9 

AO 

AA 

12 

13 

14 
13 
16 
17 
10 

19 

20 
21 
22 

23 

24 
23 
26 
27 
20 

29 

30 

31 

32 

33 

34 
33 

36 

37 
30 

39 

40 

41 

42 

43 

44 
43 

46 

47 
40 
49 

30 

31 
52 


TITLE - DSK_IO 

COMPUTER - 0000 ASSEMBLY LANGUAGE 

ABSTRACT - Intarfaca to tha disk drivar in ROM. Includes tha routina DFINIBH 
callad by tha i n tar rup t-dr iven* machine independent coda to Indi- 
cate that interrupt leva! processing ham completed. 

Umam tha IBM PC convantioni. 

INPUTS - AH - Function coda 

IBM compatible function codam: 

00 » Reset diskette system 

01 * Return status code for last operation in AL 

02 a Read the specified sectors into memory 

03 ■ Write the specified sectors from memory 

04 * Verify the specified sectors CRC's 

05 » Null operation (format track on IBM PC) 

TI private function codes: 

06 ■* Verify data in specified sectors 

07 « Return retry status for last operation in AL 
00 ■ Set standard DIT for unit 

09 ■ Set DIT address for unit 

10 - Return DIT address for unit 

11 » Turn off all Floppy drive motors 

NOTE: DIT - Disk Intarfaca Table 

Register assignments for Raad/Wr i ta/Var A f y (crc It data): 

AL » Number of sectors 

CH - Cylinder ("track") number 

CL m Sector number 

DL « Drive number 

DH • Track ("head") number 

ES: BX - buffer address (except for Verify crc) 

Note the two equivalent nomenclatures for disk position: 

Cylinder* track* & sector ( -■ ) "track", "head"* It "sector" 

This code uses cylinder* track* & sector 

Register assignments for Set standard DIT for unit: 

AL " Disk DIT type: 

0 *» Single sided* single track density 

1 - Double sided* single track density 

2 Single sided* double track density 

3 » Double sided* double track density 

DL - PEGASUS unit (drive) # 

Register assignments for Set DIT address for unit: 

DL =* PEGASUS unit (drive) * 

EB: BX ~ address of DIT 


OUTPUTB: 
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-FFFF 


03 

04 
00 
06 
07 
00 
09 
60 
61 
62 

63 

64 
60 
66 
67 

69 

70 

71 

72 

73 

74 
70 

76 

77 
70 

79 
BO 
8! 
02 

83 

84 
BO 
06 
07 

80 
09 

90 

91 

92 

93 

94 
90 

96 

97 
90 
99 

100 

101 

102 

103 

104 
100 


AL ■ status return for functions 01 6 07 

AH ■» status return for functions OO* 02 - 06 

AL ■ number of unprocessed sectors for any I/O function 

BX ■ address of WORD with bad data for function 06 

ES - same as input ES (except for function 10) 

Carry flag is set (*1) to indicate an error condition 

REGISTERS USED - 

STACK USED - 


NAME DSK_IO 

SUBTTL ROM disk driver front end (uses IBM PC interface) 
DEBUG EQU OFFFFH 


SUBTTL ROM disk driver front end: STRUCTURE OF THE DISK DRIVER 


Structure of the disk driver: 


1 

DGK_I0 

1 





I 

V 


1 

DSKISR 1 


1 


1 


V 

1 

Generic disk 1 

1 

operations 1 


Implements the standard (IBM PC) inter- 
face to all disk-type devices supported 
under this driver. 


Implements a high-level generic disk 
interface which all disk-type devices 
are made to look like using software. 
Includes the basic disk functions and 
the basic interrupt structure for pro- 
cessing disk I/O. 


Implements the generic disk operations 
for a specific disk-type device. Per- 
forms the device-specific operations 
necessary to emulate the high-level 
generic disk operations. This includes 
executing device-specific functions* 
programming of hardware interfaces and 
processing of interrupts not included 
in the basic interrupt structure. 


SUBTTL ROM disk driver front end: THE DIT DATA STRUCTURE 

The Disk Interface Table structure is used to interface device-specific code 
to the generalized disk driver code. 

DIT's contain read-only data exclusively and may be ROMmed. If drive spec!- 
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*0000 


106 

107 

10B 

10 ? 

HO 

111 

112 

113 

114 
119 
116 

117 

118 

119 

120 
121 
122 

123 

124 
123 
126 
127 
12B 
12 ? 

130 

131 

132 

133 

134 
139 

136 

137 
13B 

139 

140 

141 

142 

143 

144 
149 

146 

147 
14B 
149 


fie codo requires RAH space* it mag uao the imall workspace provided in the 
ROH BIOS' RAH data area or Hava ito own RAH space allocated somewhere. 

The etructure of a DIT it ai follows: 

I 16 bite > 


OOH I 

— DITDIR 
02H I 


04H I D1T8EC 
06H ID1TTRK IDITCYL 
OSH IDITDBK IDITERR 
OAM 


Long vector to Diet Interface Routine 
Sector ilia in hgtee 

Track eite in sectoral Cylinder aiie in tracks 
Disk siie in eglindersi Error retry limit 


all other fields 
are dependent on 
the requirements of 
the code for the 
specific device 

The DIT structure for all of the floppy drives is: 
i 16 hits > 


1 

ci on t a 

1 

Floppy Disk Interface Routine 

rLruIn 

1 

1 

1 DIT6EC 

1 

Sector siie in bytes 

IDITTRK IDITCYL 

1 

Track siie in sectoral Cylinder sixe in tracks 

IDITDSK IDITERR 

1 

Disk sixe in cylinders! Error retry limit 

1 iPRCHP 1 


Threshold track 1 for changing write pre-comp 


PUBLIC DEFINITIONS 


190 i ei 



191 

SECT 

ROMCOD 

192 

PUBLIC 

DC ALL 

193 

PUBLIC 

DFINIBH 

194 

PUBLIC 

DSK_10 

139 

PUBLIC 

DSKINI 

136 

PUBLIC 

INVALID 

137 

PUBLIC 

SOFINT 


i Call Oenerlc Disk Operation 
i Called at end of interrupt processing 
i Main entry point for general disk I/O 
i Initial i lation entry pt. (If needed) 
i Invalid position value 

f Software interrupt Into Interrupt code 


/ \ 



DBK_!0 CR80B6/U vtriion 10.34.17 3-Aug-83 16:37:33 

ROM dish driver front end: THE D1T DATA STRUCTURE DSKIO. SRC 


Pago 1-3 


-0000 


-0000 


-0001 

-FFFF 

-0004 

-0004 

-0000 


138 


PUBLIC 

TIMOUT 



l 

Entry point for disk timeout event 

139 





***1 

MH 


160 

1 


EXTERNAL REFERENCES 

161 





***4 

1*4 


162 


SECT 

ROMCOD 





163 


EXTRN 

FLPDIR: FAR 



1 

Disk Interface Routine for floppy dsk 

164 


EXTRN 

MOTOFF: NEAR 



1 

Kill motor and timeout 

163 


»«*•**• 



ft»4H 

fr*i 


166 


SECT 

ROMDAT 





167 


EXTRN 

D_DBGN: BYTE 



1 

Beginning of data area 

160 


EXTRN 

D_D I T : WORD 



1 

Table of drive DIT'i 

169 


EXTRN 

DJDEND; BYTE 



1 

End of data area 

170 


EXTRN 

D_POS BYTE 



1 

Table of drive current positions 

171 


EXTRN 

DJ?EQ: BYTE 



1 

Disk driver Request Information Block 

172 


EXTRN 

D_SOFT: BYTE 



1 

Software interrupt flag for DSKISR 

173 


EXTRN 

D_STAT: BYTE 



1 

Disk driver current state 

174 


EXTRN 

D_WAIT : BYTE 



1 

Waiting for interrupt processing flag 

173 


EXTRN 

NUMDRV: ABB 



1 

Mai number of drives in the system 

176 


EXTRN 

SYSCON: WORD 



i 

System configuration word 

177 




***** 

***1 

MH 


178 

« 


LOCAL CONSTANTS 



179 


»*»«»«« 



SIMM 

1*4 


180 

1 NOTE: 

These 

values have been 

ass i gned 

equates for mnemonic purposes. THIS 

101 

« 

ABSOLUTELY# POSITIVELY 

• DOES 

NOT* 

mean that the values can be changed! ! 

102 


DON'T 

CHANGE THE VALUES 

* the 

code 

WILL NOT work if you do!!!!!!!!!!!!!! 

183 




***** 

e**i 

i*i 


104 

BUSY 

EQU 

1 



i 

Busy value for wait flag 

183 

INVALID 

EQU 

-1 



i 

"Invalid" pointer value 

106 

NUMDIT 

EQU 

4 



1 

Number of standard DIT's 

187 

NUMFLP 

EQU 

4 



1 

Number of floppy drives 

188 

READY 

EQU 

0 



1 

Ready value for wait flag 

189 





***i 

i*i 


190 

1 


DISK DRIVER STATE 

DEFINITIONS 

191 




***** 

***4 

1*4 


192 

i 

INCLUDE PElW: DSKSTA. EQU 






-0002 

-0001 

•0050 


193 

205 

206 
207 
200 
209 
224 
223 
226 

227 

228 
250 

231 

232 

233 

234 
253 


DISK INTERFACE TABLE DEFINITIONS 

>** *•***••« ******* ** ****** * *«*«••*« ***«***««••* »«J 

INCLUDE PEO: DSKDIT. EQU 


DISK OPCODES I IBM COMPATIBLE ROM BIOS) 
I*********************** ******* a*************** »•»*•« *«i 

INCLUDE PEO: DSKOPS. EQU 


DIT DEFINITIONS 


DSCYL 

BSCYL 

DTDSK 


EQU 

EQU 

EQU 


2 

1 

80 


I Double sided cylinder eiie (track*) 
i Single elded cylinder eiie (tracks) 
i Double track density disk size (cyls) 
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-0028 


296 

STDBK 

EQU 

40 

9 

Single track density disk sire (cyls) 


■■0028 


297 

DTPRCMP 

EQU 

DTDBK/2 

1 

Double track density pre-comp e-over 


•0002 


298 

FLPERR 

EQU 

2 

9 

Maiifitum number of tlmee to retry 


-0014 


297 

BTPRChP 

EQU 

STDSK/2 

1 

Single track density pre-comp e-over 


-0200 


260 

XXSEC 

EQU 

912 

9 

Sector else in bytee for all caiei 


-0008 


261 

XXTRK 

EQU 

8 

I 

Track slie in vector* for all caiei 




262 









263 

9 


ERROR CODE DEFINITIONS 




264 









269 

1 

INCLUDE 

PEG: DSKERR. EQU 






266 









304 









309 

9 


GENERIC 

DISK FUNCTION CODES (INTERNAL USE ONLY! 




306 









307 

9 

INCLUDE 

PEG: DSKREQ. EQU 






308 









317 









320 

l 


PEGASUS 

INTERRUPT 

VECTORS 




321 









322 

9 

INCLUDE 

PEG: VECTOR. EQU 






323 









417 









418 

9 


REQUEST 

INFORMATION BLOCK STRUCTURE DEFINITION 




417 









420 

1 

INCLUDE 

PEQ: DBKRIB. EBU 






421 









437 









438 


BUBTTL 

ROM disk driver 

front ond: 

DBK_IO (ENTRY POINT) 




437 









440 

9 


MODULE ENTRY POINT 




441 







-oooo 


442 


SECT 

ROMCOD 






443 


ASSUME 

CB: ROMCOD. DB ROMDAT. EB. NOTHING 




444 






OOOO' 



449 

D8K_I0 

PROC 

FAR 



0000' 

FB 


446 


8TI 


9 

He entered via a toftware interrupt. 




447 




9 

so enable the interrupt* 

0001' 

IE 


448 


PUSH 

D8 

9 

Save registers used by DBKIO 

0002' 

91 


447 


PUSH 

CX 



0003' 

96 


490 


PUSH 

SI 



0004' 

97 


491 


PUSH 

DI 



0000' 

99 


492 


PU8H 

BP 



0006' 

92 


493 


PUSH 

DX 



0007' 

2E8E 1 

ie ciao 

494 


MOV 

DS. word ptr CS: DBADDR+CBHRAP 9 Bet local D8 




499 




1 

Store request info (defined or not) 

OOOC' 

8C 06 

OOOO" 

496 


MOV 

word ptr D_REQ+BUF+2. EB I 

Buffer's segment base 

0010' 

87 IE 

OOOO" 

497 


MOV 

word ptr D_REQ4BUF+0. BX I 

Buffer's segment offset 

0014' 

A2 0000 M V 

498 


MOV 

D_REQ4SECKNT. AL 

1 

Sector count 

0017' 

88 2E 

OOOO" 

497 


MOV 

DJJEQ+CYL, CH 

1 

Cylinder • for request 

OOIB ' 

88 OE 

oooo- 

460 


MOV 

D REQ+SEC.CL 

1 

Sector # for request 

001F ' 

88 36 

oooo- 

461 


MOV 

D REQ+TRK. DH 

1 

Track 1 for request 




462 




• 
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0023' 

8A C4 

463 


MOV 

AL* AH 


1 

AL : ■ Command cod* 

0023' 

3C OC 

464 


CMP 

AL. DKBADC 


I 

G: Is this a good command? 

0027' 

73 23 

463 


JAE 

CMDERR 


1 

N: Return bad command error 

002'^ 

90 

466 


CBU 



1 

Y: Convert to word value 

002m * 

D1 EO 

467 


8HL 

AX* 1 


1 

Convert to word indei 

002C ' 

8B FO 

468 


MOV 

61* AX 


1 

Put in indei register for jump 

002E ' 

EB 0I2C 

469 


CALL 

CHGDRV 


1 

Call C HO DRV to change drive 



470 





1 

Also sets error flags for use by 



471 





I 

the function routines 

0031 ' 

2EFF A4 0036 H 

472 


JMP 

CB: CMDTBLCSI J 


1 

Jump to return for command 



473 





«**« 


0036' 

00 A3** 

474 

CMDTBL 

DW 

OPRSET 


1 

Vector for reset 

0038' 

OOAB" 

473 


DU 

OPSTAT 


1 

Vector for return status 

003A ' 

00C9- 

476 


DU 

OPREAD 


1 

Vector for read sectors 

003C ' 

OOCD- 

477 


DU 

OPURIT 


1 

Vector for writ* 

003E ' 

OODi ** 

478 


DU 

OPVERF 


1 

Vector for verify CRC 

0040' 

0060- 

479 


DU 

OKEXIT 


1 

Vector for format (null operation) 

0042' 

00D3 1 * 

480 


DU 

OPVRFY 


1 

Vector for verify data 

0044' 

OOBO" 

481 


DU 

OPSSTA 


1 

Vector for return retry status 

0046' 

0071- 

482 


DU 

OPFBET 


1 

Vector for set floppy DIT for drive 

0048' 

0088- 

483 


DU 

OPXBET 


1 

Vector for set DIT address for drive 

004A ' 

00B3- 

484 


DU 

OPRDIT 


1 

Vector for return DIT addr for unit 

004C ' 

OOA0- 

483 


DU 

OPKILM 


1 

Vector for turning off Floppy motors 



486 





• «*» 




487 


SUBTTL 

ROM dick driver 

front 

and 

: EXIT (EXIT FROM BIOS CALL) 



488 





**#* 


00 4 E ' 

BO 01 

489 

CMDERR: 

MOV 

AL. DKCMDE 


i 

Return with command error 



490 

i 

JMP 

short ptr EXITE 


i 

EXITE immediately follows 



491 





«»#« 


0030' 

A2 0000- 

492 

EXITE: 

MOV 

D REG+STAT. AL 


i 

Slow set status 6 return to caller 

0033' 

BA 26 0000- 

493 

EXIT: 

MOV 

AH* D_REQ+STAT 


i 

Bet status li return to caller 

0037' 

80 FC OO 

494 


CMP 

AH, DKNORM 


i 

Fast set status It return to caller 

003A' 

74 01 

493 


JE 

RESRET 


i 

If no error, go restore It return 

003C ' 

F 9 

496 


BTC 



i 




497 





i 

Bet appropriate return values 

003D ' 

AO 0000- 

498 

REGRET: 

MOV 

AL* D_REG+BECKNT 


i 

CL : * count of unprocessed sectors 

0060' 

C4 IE 0000- 

499 


LES 

BX.dword ptr D__REQ+BUF 1 

EB: BX :■ Updated pointer In buffer 



300 





i 


0064' 

3A 

301 

POPRET: 

POP 

DX 


i 

Restore the saved registers 

0063' 

30 

302 


POP 

BP 




0066' 

3F 

303 


POP 

DI 




0067' 

5E 

504 


POP 

SI 




0068' 

39 

303 


POP 

ex 




0069' 

IF 

306 


POP 

DS 


i 

Finally* restore calling DS 

006A ' 

CA 0002 

307 


RET 

2 


i 

And return (from software interrupt) 



308 





•*»« 


0060 ' 

BO OO 

309 

OKEXIT: 

MOV 

AL. DKNORM 


i 

Normal eiit 

006F ' 

EB OF * 

310 


JMP 

short ptr EXITE 






311 





»*** 




312 


SUBTTL 

ROM dick driver 

front 

end 

: NON- I/O FUNCTIONS 



313 




***** 

**** 




314 

> OPFSET - SET 

STANDARD (FLOPPY) 

di r 

FOR 

DRIVE 
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313 

« 

INPUT: * DL * Drive number 






316 

1 


» CDJtEQ+SECKNTl (byte) 

- DIT index 




317 

9 


* ZF - NZ if drive 

number ie bed 




318 

« 






-0071 

317 

OPFBET 

EQU 

% 

i 

Bet DIT addr to etanderd floppy DIT 

0071 • 

73 

DB 

320 

JCMDER: 

JNZ 

CMDERR 

• 

Return commend error if drive 19 bed 

0073 * 

AO 

0000" 

321 


MOV 

AL* D REQ+BECKNT 

i 

AL : ■ DIT number 

0076 9 

3C 

03 

323 


CMP 

AL* NUMDIT-1 

i 

Q: Ie it e valid etanderd DIT index? 

0070 0 

77 

04 

323 


JA 

CMDERR 

9 

N: Return commend error 

007 A 9 

70 


324 


CBN 


9 

Y: Convert index to word value 

007B # 

Di 

EO 

323 


8HL 

AX. 1 

9 

Convert to word Index 

007D 9 

8B 

08 

326 


MOV 

BX. AX 

9 

BX index into DIT table 

007F 0 

3E8B 07 O310* 

327 


MOV 

AX* CB: DITTBLCBX J 

1 

E8: AX : - • deeired DIT 

0084 # . 

OE 


328 


PUSH 

CB 



0083 

07 


327 


POP 

EB 



0086' 

EB 

06 

330 


JMP 

ehort ptr BETDIT 

9 

Oo eet DIT eddreee 




331 




*#•« 





332 

l 0PX8ET - BET 

DIT ADDRESS FOR DRIVE 






333 

9 

INPUT: * DL ■ Drive number 






934 

1 


* ZF - NZ if drive 

number ie bed 




333 

9 






-0008 

336 

OPXBET 

EQU 

* 

9 


0088 ' 

73 

C4 

337 


JNZ 

CMDERR 

i 

Return commend error if drive I bed 

008 A' 

C4 

06 OOOO" 

338 


LE8 

AX.dword ptr D REQ+BUF 

9 





337 

9 

JMP 

ehort ptr BETDIT 

9 

And go eet DIT eddreee 




340 




e**« 





341 

1 6ETDIT - COMMON CODE FOR OPFBET li 0PX6ET 




342 

9 

INPUT: * DL ■ Drive number 






343 

9 





008E 9 

30 

F6 

344 

BETDIT: 

XOR 

DH. DH 

9 

Convert drive number to word value 

0070 # 

0B 

DA 

343 


MOV 

BX. DX 

9 

BX :■ Word value drive number 

0093 9 

Dl 

E3 

346 


BHL 

BX. 1 

9 

Convert to double word index 

0074' 

Dl 

E3 

347 


BHL 

BX. 1 

9 


0076' 

87 

87 000 0- 

348 


MOV 

DJHT+OCBXJ. AX 

9 

Store DIT eddreee for drive 

007 A ' 

BC 

87 0000- 

349 


MOV 

D_DIT-9'2CBX3* ES 

9 


007E ' 

E0 

00C7 

330 


CALL 

CHQD10 

9 

Now. §o reeet the date etructuree 

00A1 ' 

EB 

CA 

331 


JMP 

ehort ptr OKEXIT 

9 





332 




*««« 





333 

9 OPRBET - REBET DISK SYSTEM 






334 

9 

- 




00A3 ' 

EB 

013E 

333 

OPRBET: 

CALL 

INVPOB 

9 

Invalidate all dlefc poeltione 

00A6 ' 

EB 

C9 

336 


JMP 

ehort ptr OKEXIT 






337 









338 

9 OPKILM - Hill 

the motor timeout for 

the 

f lopp iee 




337 

9 





OOAB' 

EB 

0002- 

360 

OPKILM: 

CALL 

MOTOFF 






361 




**#« 




%. 

362 



SUBTTL ROM dtak drtv.r front end: INFORMATION RETURNB 




363 




««** 





364 

9 OPBTAT - RETURN STATUS CODE 






363 

1 





OOAB ' 

AO 

oooo- 

366 

OPBTAT: 

MOV 

AL. D__REG+STAT 

9 

Return laet etatue code 
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OOAE 9 

EB 

12 

367 



JMP 

short ptr QEXIT 




368 

f \ 







369 

I 

0PS8TA - RETURN RETRY STATUS 




370 

f 




OOBO ' 

AO 

0000" 

371 

OPBSTA: 

MOV 

AL. D_REQ+RSTAT I Got retry status if on\| 

00B3' 

EB 

OD 

372 



JMP 

lhort ptr QEXIT 




373 

i \ 







374 

i 

OPRDIT - RETURN DIT ADDRESS FOR UNIT 




373 

i 


INPUT: * t D_REG+DI T 3 (duord) ■ ««g: offtvt of currtnt drive's DIT 




376 

i 



* ZF ■ NZ if the drive number it bad 




377 

i 




00B3 # 

73 

97 

378 

OPRDIT : 

JNZ 

CMDERR i Return command error if there's error 

00B7 * 

92 


379 



XCHG 

AX.DX l AL :■ "New" current drive number 

OOBB ' 

9B 


380 



CBW 

i Convert to word value 

00B9 9 

Di 

EO 

3B1 



SHL 

AX. 1 1 01 :- Indai to DIT tabla 

OOBB 9 

D! 

EO 

382 



SHL 

AX. 1 1 

OOBD 9 

93 


3B3 



XCHG 

AX. BX i DI : ■» New drive index 

OOBE 9 

C4 

9F 0004" 

384 



LES 

BX.duord ptr D_DITCBXJ » ES: AX « drlva'* DIT 

00C2 9 

B4 

00 

383 

QEXIT: 

MOV 

AH. DKNORM 1 AH : - Normal status 

00C4 9 

FB 


306 



CLC 

I Set carry to indicate no error 

OOC3 9 

EB 

90 

387 



JMP 

short ptr POPRET I And return 




388 

1 1 







389 








390 



BUBTTL 

ROM d 1 «h driver front end: REJUMP TO EXIT 




391 

1 1 




00C7 9 

EB 

BA 

392 

J. 

.EXIT: 

JMP 

• hart ptr EXIT l Re jump to EXIT 




393 

i * 







394 








393 



SUBTTL 

ROM dish driver front end: READ. WRITE 6 VERIFY 




396 

i i 







397 

i 

INTERNAL FUNCTION PROCESSING ROUTINE 




398 

i 

NAME: 


DO_IO 




399 

i 

ABSTRACT: 

Process all disk I/O functions 




600 

i 

PROCESSING: 

* Interpret indicators from CHGDRV into errors (if any) 




601 

i 



* Initialize status 6 retry status bytes to DKNORM 




602 

i 



e Check for attempt to transfer past 64k boundry error 




603 

i 



# Perform a disk I/O function 




604 

i 



« If needed* adjust cylinder, track, sector l< buffer address 




603 

i 



parameters for repeating the I/O function on consecutive 




606 

i 



sectors 6 re-issue the 1/0 request 




607 

i 

INPUT: 


* DL ■ Drive number 




608 

f 



* CF ■ C (B for BSO) if drive is undefined 




609 

i 



* ZF » NZ if drive is invalid 




610 

i 

OUTPUT: 

* ID.REQ+8TAT] (byte) - Error code if error occurs 




611 

i 



* tD_REQ+CYL» +TRK. +SEC 6 +BUFJ - modified for multi-sectr I/O 




612 

i 

REGISTERS: 





613 

i 

STACK 

USED: 




% 

614 

i < 




00C9 9 

BO 

01 

613 

OPREAD: 

MOV 

AL. RQ READ i AL : ■ Read sector function code 

OOCB 9 

EB 

OA 

616 



JMP 

short ptr DO_IO 

OOCD ' 

BO 

02 

617 

OP WRIT. 

MOV 

AL. RQ_WR IT i AL : - Write sector function code 

OOCF ' 

EB 

06 

618 



JMP 

short ptr DO 10 
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00D1 ' 

BO 03 


619 

OPVERF: NOV 

AL. R0_VFC 

00D3 ' 

EB *02 


620 

JMP 

short ptr DO_IO 

00D3 ' 

BO 04 


621 

OPVRFY: MOV 

AL* RG_VFD 

00D7 ' 

A2 OOOO" 


622 

DO_IO: MOV 

D_REG+FUNC, AL 

OODA ' 

73 93 


623 

JNZ 

JCMDER 

OODC' 

72 7A 


624 

JB 

NR DYER 

OODE' 

C6 06 0000" 

00 

623 

MOV 

D_REG+BTAT, DKNORM 

00E3 ' 

C6 06 OOOO" 

00 

626 

MOV 

D_REG*R6TAT. DKNORM 

OOEB' 

C4 IE 0000" 


627 

LEB 

BX. dword ptr D_REQ+DIT 

OOEC ' 

AO 0000" 


620 

MOV 

AL. D_REG+BECKNT 

OOEF ' 

00 CO 


629 

OR 

AL. AL 

OOF 1 ' 

74 D4 


630 

JZ 

J_EXIT 

00F3 ' 

30 E4 


631 

XOR 

AH. AH 

00F3' 

26F7 67 04 


632 

MOL 

word ptr EB: DITSECCBX1 

00F9 ' 

03 06 0000" 


633 

ADD 

AX. word ptr D_REQ+BUF 

OOFD ' 

03 D2 00 


634 

ADC 

DX. 0 

0100' 

4A 


633 

DEC 

DX 

0101 ' 

7F 31 


636 

JO 

OVRMEM 

0103 ' 

7C 04 


637 

JL 

IOLOOP 

0103' 

09 CO 


630 

OR 

AX. AX 

0107' 

73 4B 


639 

JNZ 

OVRMEM 

0109' 

EB OOEB 


640 

IOLOOP : CALL 

EXECMD 

OIOC' 

73 B9 


641 

JNZ 

JJEXIT 

010E' 

00 3E 0000" 

00 

642 

CMP 

D REG+8ECKNT.0 

0113' 

74 B2 


643 

JZ 

J EXIT 

0113' 

FE OE OOOO" 


644 

DEC 

D REO+SECKNT 

0119' 

74 AC 


643 

JZ 

JJEX IT 




646 






647 



OUB' 

C4 IE OOC^" 


649 

LEB 

BX. dword ptr D REQ+DIT 

01 IF ' 

26BB 47 04 


649 

MOV 

AX, EB: DITBECCBX 1 

0123' 

01 06 OOOO" 


630 

ADD 

word ptr D_REG+BUF, AX 




631 



0127' 

BE OOOO" 


632 

MOV 

BI. offset D_REG+BEC 

012A ' 

FE 04 


633 

INC 

byte ptr CBI1 

0I2C ' 

0A 04 


634 

MOV 

AL, byte ptr CSU 

012E ' 

263A 47 06 


633 

CMP 

AL. EB: DITTRKCBXJ 

0132' 

76 D3 


636 

JBE 

IOLOOP 




637 






630 



0134' 

C6 04 01 


639 

MOV 

byte ptr CSU, 1 

0137' 

4E 


660 

DEC 

61 

0130' 

FE 04 


661 

INC 

byte ptr CBIJ 

0 1 3 A ' 

8A 04 


662 

MOV 

AL, byte ptr C6I] 

013C ' 

263A 47 07 


663 

CMP 

AL, EB: DITCYLCBXJ 

0140' 

72 C7 


664 

JB 

IOLOOP 




663 





% 

666 



0142' 

C6 04 00 


667 

MOV 

byte ptr C9U.0 

0143' 

4E 


660 

DEC 

BI 

0146' 

FE 04 


669 

INC 

byte ptr CBM 

0140' 

BA 04 


670 

MOV 

AL. byte ptr CBIJ 


I AL : ■ Verify CRC function code 

i AL :■ Verify date function code 
I Bet function request to read or write 
I Return command error If drive 0 bad 
I Return not ready error If drive undef 
i Initialize status to normal 
i Initialize retry status to normal 
i EB: BX :■ • D1T for current drive 
i AL :■ number of sectors to transfer 
I Q: Is that value zero? 

I Y: All right* don't ifer anything 

l Convert to unsigned word value 
i DX* AX : " number of bytes to transfer 
I Add buffer offset 
i (double word) 

i Q: Is that >64k? 

i Y: Return 64fc boundry error 

I If ( 64k. then perform the I/O 

i 0: Is it - 64k? 

I N: Return boundry error 
I Execute the disk command 
i Error exit if error occurred 
i Q: device dep code ifer all the data? 
I Y: Then exit 

i Q: Nave we I/O'd all the sectors? 
i Y: Then exit 

i N: Then Increment to next sector: 

i EB: BX :« • current DIT 

i AX : m Rector size 
i Add to buffer offset 

i 91 :■ • req sector field of D_REG 
l Increment requested sector number 
i AL : - new sector number 
i G: Is there such a sector? 

i Y: Perform the I/O 

i N: Increment to the next track: 

i Reset sector number to 1st sector 
i BI :-C req track field of D.REQ 
I Increment requested track number 
< AL :■ new track number 
l G: Is there such a track? 

i Y: Perform the I/O 

i N: Increment to the next cylinder: 

i Zero track number 

i SI :■ • req cylinder field of D_REG 
i Increment cylinder number 
i AL :« New cylinder number 
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014A ' 

263A 47 08 

671 



CMP 

AL. ES: DITDSKCBX] 1 Q: It ther. tuch a cylinder? 

01 4E ' 

72 

B9 


672 



JB 

IOLOOP i Y: Perform the I/O 

0130' 

BO 

04 


673 



MOV 

AL. DKRNFE i N: Return a record not found error 

0132' 

EB 

06 


674 



JMP 

short ptr JEXITE » 





673 




i 

0134' 

BO 

09 


676 

OVRHEM: 

MOV 

AL. DKBOUN i Exit ml th 64k boundry error 

0136' 

EB 

02 


677 



JMP 

short ptr JEXITE i 





678 




i 

0138' 

BO 

80 


679 

NR DYER: 

MOV 

AL.DKNRDY I Exit with disk not ready error 

013A ' 

E9 

FEF3 

680 

JEXITE: 

JMP 

EXITE 





681 

i 








682 









683 



BUBTTL 

ROM disk driver front end: CHODRV I CHANGE CURRENT DRIVE) 





6B4 









683 

i 

INTERNAL ROUTINE 





686 

i 

NAME: 


CHGDRV 





687 

i 

ABSTRACT: 

Check the requested drive number for validity and update the 





688 

i 



disk driver data base, when appropriate, for accessing a new 





689 

i 



drive (i.e.* a different one from the last request). 





690 

i 

INPUT 


# DL New drive number 





691 

i 

PROCESSING: 

* Check for valid drive number 





692 

i 



a Store current drive's position 





693 

i 



• If no "indicators” are set* make new drive the current drive 





694 

i 



by getting and storing: 





693 

i 



— New drive number 





696 

i 



- New drive's current position 





697 

i 



- New drive's DIT address 





698 

i 

OUTPUT: 

* BX * Same as input 





699 

i 



a SI • Same as input 





700 

i 



a DL « New drive number 





701 

i 



# CF ■ NC b ZF ■ Z if no errors were found 





702 

i 



a CF » C fc Z F m 2 If the drive it undefined 





703 

i 



a CF - NC & IF m NZ If drive ft it invalid (ft < 0 or ft > NUMDRV ) 





704 

i 

REGISTERS: 

AX. CX. DI. ES 





703 

i 

STACK 

USED: 

2 bytes 





706 

i 

NOTES. 


a Flag returns are called "indicators" rather than "errors” be- 





707 

i 



cause the interpretation of the indicators as errors depends 





708 

i 



on the command executed. For example, "drive undefined” isn't 





709 

i 



an error for the "set DIT" functions, but it is for the I/O 





710 

i 



functions. Therefore, the code for each function decides how 





711 

i 



to interpret the indicators returned by this routine. 





712 

i \ 




01 3D ' 




713 

CHGDRV 

PROC 

NEAR 

013D ' 

80 

FA 

00” 

714 



CMP 

DL.NUMDRV-1 i Q: Is the request for a valid drive7 

0160' 

77 

4A 


713 



JA 

CHGRET i N: Return invalid (NC & NZ ) 

0162 ' 

38 

16 

OOOO” 

716 



CMP 

D__REG+UNIT» DL i G: Is this operation on a new drive? 

0166' 

74 

44 


717 



JE 

CHGRET i N: Return OK (NC 6 Z) 

0168' 

AO 

0000” * 

7IB 

CH0D10: 

MOV 

AL. D_REG+UNIT » AL "Old" current drive number 

0 1 6 D ' 

98 



719 



CBW 

1 Convert to word value 

016C ' 

8B 

FB 


720 



MOV 

DI.AX i DI : « Drive position index 

016E ' 

40 



721 



INC 

AX i Q: Is the old unit "INVALID"? 

01 6F ' 

74 

08 


722 



JZ 

DONEW i Y: Then go set for very 1st time 
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0171' 

BA 

OE 0000" 

723 

0173' 

B8 

8D 0006" 

724 

0179' 



723 




726 

0179' 

BA 

CA 

727 

017B ' 

AO 

OOOC" 

728 

017E ' 

OC 

FO 

729 

OIBO ' 

D2 

EB 

730 

0162' 

AB 

01 

731 

01B4 ' 

F9 


732 

0183' 

74 

23 

733 

01B7 ' 

BA 

C2 

734 




733 

0189' 

97 


736 

018A ' 

BA 

AD 0006" 

737 

01 BE ' 

DI 

E7 

738 

0190' 

DI 

E7 

739 

0192' 

C4 

B3 0004" 

740 

0196' 

09 

CO 

741 

0198' 

F9 


742 

0199' 

74 

11 

743 

019B ' 

68 

16 OOOO" 

744 

019F ' 

8B 

2E OOOO" 

743 

01A3' 

A3 

0000" 

746 

01 A6 ' 

BC 

06 OOOO" 

747 

01AA' 

31 

CO 

74B 

01AC ' 

C3 


749 




730 




731 




732 




733 




734 




733 




736 




737 




738 




739 




760 




761 




762 




763 




764 




763 




766 




767 




768 




769 



% 

770 

01 AD ' 



771 

01 AD ' 

3A 


772 

OIAE ' 

OE 


773 

01 AF' 

32 


774 


MOV CL. D J1EG+CURCYL 

MOV D_POBCDI 3. CL 

DO_NEW: 

MOV CL. DL 

MOV AL. BYTE PTR 8YSC0N 

OR AL. OUltOOOOB 

BHR AL. CL 

TEST AL. I 

BTC 

JZ CHORET 

MOV AL. DL 

CBN 

XCHQ AX.DI 

MOV CH. DJ»09CDI1 

SHL DI.I 

BHL DI.I 

LE8 AX.dword ptr DJDITCDII 

OR AX. AX 

BTC 

JZ CHGRET 

MOV D_REQ+UNIT. DL 

MOV DJ?EG*CURCYL. CH 

MOV word ptr D_REQ+DIT+0. AX 

MOV word ptr D_REG+DIT+2. EB 

XOR AX. AX 

CHORET: RET 


CL :■ Current drlvv't position 
Store currant drive's position 


CL :■ Shift count for Installed tast 
AL :■ Installad bit for floppy drives 
Force all other drives to "Installed** 
Move Installed bit to bit O 
G: Is drive installed? 

Bet CF (C) In case of error 
N: Return undefined (C I Z) 

AL :■ "New" current drive number 
Convert to word value 
DI :■ New drive Index 
CH :■ New drive's position 
DI Index to DIT table 

EB: AX :- t drive's DIT 
Q: Is drive's DIT defined << ) 0)7 

Bet CF 1C ) In case of error 
N: Return undefined 1C It Z) 

Y: Bet new unit number as current 
Bet new position as current 
Bet new DIT address as current 

Return OK INC It Z> 

Insure carry clear 


BUBTTL ROM disk driver front end: DC ALL (CALL ODO ROUTINE) 


PUBLIC ROUTINE 
NAME: 

ABSTRACT: 


PROCESSING: 


INPUT: 

OUTPUT: 
REOIBTERB: 
STACK USED: 


DC ALL 

Called by the interrupt level code to Invoke device-dependent 
General Disk Operation routines 

• Converts the NEAR call to this routine Into a FAR call 

• Set BP register to the offset of the disk data area in ROMDAT 
a Invokes a device-dependent Generic Disk Operation subroutine 
a AL * Code for operation (passed on to interface routine) 

• CD_REQ+DITJ (dword) ■ seg: off set of the Disk Interface Table 
none from this routine 

AX. BX. DX. DI. EB plus that used by the called routine 
This routine does not use any stack, it converts the NEAR call 
to this routine to a FAR call, placing 4 bytes of return addr 
information on the stack. However, the four bytes are Included 
in the stack usage of the invoked routines. Invoking floppy 
ODO routines will use up to 12 bytes of stack. 


DC ALL PROC NEAR 

POP DX 

PUSH CB 

PUSH DX 


i DX : - return address 
i Push current CS 
i Push return address 
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773 




i 

Call converted from NEAR to FAR 

01B0 ' 

C4 

IE 0000 M 


776 


LEB 

BX> duiard ptr D_REO+DIT i 

ES. BX : ■ t Disk Interface Table 

01 B4 * 

BD 

0003” 


777 


MOV 

BP, offset D_DBGN 

i 

BP : * base address of disk data area 

01B7 ' 

36FF 2F 


778 


JMP 

dword ptr ES.CBX3 

1 

Transfer to Disk Interface Routine 





779 

1 



«»« 






780 










781 


8UBTTL 

ROM diet driver front 

end 

: DFINISH (SIGNAL DISK DONE) 





782 

I 



**« 






783 

1 

PUBLIC ROUTINE 







784 

l 

NAME: 

DFINISH 







783 

l 

ABSTRACT: 

* Called by interrupt 

level code to indicate that it's done 





786 

f 

PROCEBSINO: 

• Set the disk driver 

wait flag to -READY” 





787 

l 

INPUT: 

none 







788 

1 

OUTPUT: 

* CD_WAITJ (byte) - -READY” 





7B9 

l 

REGISTERS: 

none 







790 

1 

STACK USED: 

2 bytes 







791 

l 



*»« 


01BA 9 




792 

DFINI6H PROC 

NEAR 



01 BA * 

C6 

06 OOOA- 

00 

793 


MOV 

D_WA I T » READY 

i 

Clear the D_UAIT flag 

01BF * 

C3 



794 


RET 


i 

And return 





793 

1 



««* 






796 










797 


SUBTTL 

ROM disk driver front 

end 

DSKINI (DRIVER INITIALIZATION) 





798 

I 



««* 






799 

l 

PUBLIC ROUTINE 







800 

1 

NAME: 

DSKINI 







801 

« 

ABSTRACT: 

Initialise the disk data 

area 





802 

1 

PROCESSING: 

• Initialise the disk 

driver data area in ROMDAT 





803 

I 

INPUT: 

none 







804 

1 

OUTPUT: 

none 







803 

1 

REGISTERS: 

AX, BX, CX, SI, DI. ES 






806 

l 

STACK USED: 

2 bytes 







807 

1 



«»• 


01 CO' 




808 

DSKINI PROC 

NEAR 



01C0' 

IE 



809 


PUSH 

DS 

i 

E8 :« D8 

01C1 ' 

07 



810 


POP 

E8 

i 


01C2 ' 

B8 

0003" 


811 


MOV 

AX, offset DJ)BGN 

» 

AX : - t beginning of disk data area 

01C3 ' 

8B 

F8 


812 


MOV 

DI, AX 

i 

Copy that to DI 

01C7 ' 

B9 

oooo- 


813 


MOV 

CX.offs.t D_DEND+ 1 

i 

CX : ■ just past end of disk data area 

OtCA ' 

39 

C1 


814 


SUB 

CX. AX 

i 

CX :■ Length of disk data area 

01CC' 

30 

CO 


813 


XOR 

AL, AL 

i 

AL :■ 0 for ini t ia 1 1 sat i on 

01CE ' 

F2 



816 


REP 


i 

Repeat: 

01CF ' 

AA 



817 


BT08 

EB: D_DBGN 

i 

Zero disk data area 





818 




i 

Initialise defaults: 





819 

1 

MOV 

D_8TAT. 3_IDLE 

i 

Initialise driver state to -idle" 





820 




i 

Note that BRIDLE - 0 

01 DO ' 

B9 

0004 


821 


MOV 

CX. NUMFLP 

i 

Initialise table of DIT pointers 

0 1 D3 ' 

31 

DB 

% 

822 


XOR 

BX. BX 

i 

for floppy disk drives 

01D3 ' 

C7 

87 OOOO" 

0320- 

823 

INIDIT: MOV 

D__DIT+OOCBX 3, offset SSSTD 


01DB ' 

8C 

8F OOOO" 


824 


MOV 

D DIT+02CBX1, CB 



01DF ' 

63 

C3 04 


823 


ADD 

BX. 4 



01E2 ' 

E2 

FI 


826 


LOOP 

INIDIT 
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027 

020 

029 

030 

031 
033 

033 

034 
039 

036 

037 
030 


INTERNAL ROUTINE 
NAME: 

ABSTRACT: 


INVPOB 

Invalidate current diek position* and current drive* Thle 
resets the disk system. The invalid disk position tells th< 
device specific code that a reset was requested. 

PROCESSING: • Bet all disk current positions to N INVALID N (-1) 

* Bet current drive unit number to "INVALID" 1-1) 

INPUT: none 

OUTPUT: * CD_POSJ (byte array) - "INVALID" 

* CD_REQ+UNITJ (byte) - "INVALID" 

REGISTERS: BX, CX 







039 

l STACK 

USED: 

3 bytes 








840 

i eaaaaai 



laaei 


01E4 ' 

B9 

OOOBa 


841 

INVPOB: 

MOV 

CX.NUMDRV 

l 

CX :■ number of disk drives 

01E7 ' 

31 

DB 



042 


XOR 

BX# BX 

i 

BX :- 0 (initialial index) 

01E9 ' 

C6 

87 

0006" 

FF 

043 

INIPOB: 

MOV 

D POSCBX 1# INVALID 

I 

P v ut in the "nowhere" value 

01EE # 

43 




044 


INC 

BX 



01EF 9 

E2 

F0 



049 


LOOP 

INIPOS 



01F1 ' 

C6 

06 

OOOO" 

FF 

046 


MOV 

D_REd+UNIT» INVALID 

l 

Ala* invalidate tha currant 

0IF6' 

C3 




847 


RET 









040 











849 


BUBTTL 

ROM disk driver front 

end: 

EXECMD (EXEC CMD l> WAIT! 






890 




»eeei 



091 

093 

093 

094 
099 

096 

097 
090 
099 
060 
061 


INTERNAL ROUTINE 


NAME: 

ABSTRACT: 

PROCESSING: 


INPUT: 
OUTPUT : 
REGISTERS: 


EXECMD 

Invoke the disk Interrupt Service Routine to process a disk 
request and wait for it to finish* 
a Set the disk driver's wait flag to "BUSY" 

• Initiate interrupt processing using the 80FINT routine 
a Mai t for wait flag to be set to "READY" 

a Check the status byte for any error indication 
none 

* ZF • NZ if an error occurred during interrupt processing 
none 





862 

1 STACK 

USED: 

10 bytes 






063 

1 aeaaaai 



laaai 


01F7 ' 



064 

EXECMD 

PROC 

NEAR 



01F7 9 

C6 

06 OOOA" 01 

069 


MOV 

DJ4AIT. BUSY 

i 

Set wait flag to "busy" 

01FC * 

E8 

0013 

866 


CALL 

BOFINT 

i 

Initiate interrupt-driven code 

OlFF * 

80 

3E OOOA" 00 

067 

WAITER: 

CMP 

DJWAIT* READY 

i 

Wait for it to finish 

0204' 

79 

F9 

060 


JNE 

WAITER 



0306' 

00 

3E 0000" 00 

869 


CMP 

D REQ+8TAT. DKNORM 

i 

Reset Z-flag (NZ condition) If error 

020B ' 

C3 


070 


RET 


i 

And return 




071 




taeai 





072 









873 


BUBTTL 

ROM disk driver front 

end: 

TIMOUT (TIME OUT DISK I/O) 




074 




laaai 



079 

076 

077 
070 


PUBLIC ROUTINE 
NAME: TINOUT 


I ABSTRACT: 

I PROCESSING: 


Called by the ROM timing services routine to signal a timeout 
a Store the timeout error code in the disk driver status area 
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020C i 
020C * 


C6 06 0000" 80 


879 

880 
881 
882 
883 
B84 
083 
806 
887 
880 

889 

890 

891 

892 

893 

894 
890 

896 

897 

898 

899 

900 

901 

902 

903 

904 
903 

906 

907 

908 


TIMOUT PROC 
MOV 
JMP 


« Invoke the disk Interrupt Servlet Routine vie soft Interrupt 
INPUT: none 

OUTPUT: * tD_REQ+STAT 3 (byte) - "DKNRDY" (timeout error) 

REGISTERS: none 

STACK USED: 8 bytes# 6 for interrupt 8* 2 for storing the interrupted DB 


NEAR 

D_REO+STAT. DKNRDY 
, short ptr SOFINT 


I Set status to timeout 
I Invoke a software interrupt 


BUBTTL ROM disk driver front end: SOFINT (SOFT INTERRUPT TO DSKISR) 


PUBLIC ROUTINE 

NAME: SOFINT 

ABSTRACT: Called by DSKIO routines and the FLTIME (motor-off) routine in 

FLPDIR to enter the interrupt-driven part of the disk driver. 
This particular subroutine may only be called by routines in 
the ROMCOD data segment# add-on ROMs will need their own copy. 

PROCESSING: * Bet the soft interrupt indicator. NOTE: This is ABSOLUTELY 

essential for the correct processing of a software interrupt. 
If we don't# the interrupt driven logic will tell the system 
interrupt controller that it has processed an interrupt which 
the controller knows nothing about (the soft interrupt). This 
would cause strange# but not wonderful things to happen. 

• Execute a software interrupt to the the disk driver. 

INPUT: none 

OUTPUT: * CD_SOFTJ (byte) " 1 indicating a software interrupt issued 

REGISTERS: none 

STACK USED: 8 bytes# 6 for interrupt k 2 for storing the Interrupted DS 




909 






0211 ' 


910 

SOFINT 

PROC 

NEAR 

I 

General Software Interrupt routine 

021 1' 

FE 06 0008" 

911 


INC 

D SOFT 

1 

Make software interrupt flag non-0 

0213' 

CD 46 

912 


INT 

IR6INT 

l 

Invoke Disk Interrupt Service Routine 

0217' 

C3 

913 


RET 


• 

And return 



914 








913 








916 


SUBTTL 

ROM dish 

driver front end: 

STANDARD DITS TABLE 



917 








918 

I 



FIXED DATA TABLES 




919 






0218' 


920 

DITTBL 

LABEL 

UORD 

1 

TABLE OF STANDARD DIT'S (POINTERS) 

0218' 

0220" 

921 


DU 

SSSTD 

l 

0: Single-side# single track density 

021 A ' 

022B" 

922 


DU 

DSSTD 

I 

1: Double-side# single track density 

02 1C ' 

0236" 

923 


DU 

SSDTD 

l 

2: Single-side# double track density 

021 E' 

0241" 

924 


DU 

DSDTD 

l 

3: Double-side# double track density 



923 


#«•*«*«* 




0220' 

v 

926 

SSSTD 

Label 

UORD 

1 

SINGLE-BIDED# SINGLE TRACK DENSITY 

0220' 

OOOl" OOOO" 

927 


dd 

FLPDIR 

i 

Floppy disk Interface Routine vector 

0224' 

0200 

928 


DU 

XX SEC 

1 

Sector site in bytes 

0226 ' 

08 

929 


DB 

XXTRK 

1 

Track size in sectors 

0227' 

01 

930 


DB 

SSCYL 

i 

Cylinder size in tracks 
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0220 ' 

20 

931 


DB 

8TDBK 

i Disk ilia in cylinders 

0229' 

02 

932 


DB 

FLPERR 

i Haiimum number of ratrlaa 

022A ' 

14 

933 


DB 

8TPRCMP 

i Cylinder at which to change pre-comp 



934 

| If on 




022B ' 


939 

D68TD 

LABEL 

MORD 

1 DOUBLE-BIDED. SINGLE TRACK DENSITY 

022B ' 

0001“ 0000" 

936 


DD 

FLPDIR 

i Floppy disk Interface Routine vector 

022F' 

0200 

937 


DM 

XX SEC 

1 Sector site in bytes 

0231 ' 

00 

930 


DB 

XXTRK 

I Track size in sectors 

0232 ' 

02 

939 


DB 

DSCYL 

i Cylinder site in tracks 

0233 ' 

20 

940 


DB 

8TDSK 

i Disk size in cylinders 

0234 ' 

02 

941 


DB 

FLPERR 

i Maximum number of retries 

0239' 

14 

942 


DB 

8TPRCMP 

I Cylinder at which to change pre-comp 



943 

I 




0236 ' 


944 

88DTD 

LABEL 

MORD 

• SINGLE-SIDED. DOUBLE TRACK DENSITY 

0236 ' 

0001* 0000* 

949 


DD 

FLPDIR 

I Floppy disk Interface Routine vector 

023 A' 

0200 

946 


DM 

XXSEC 


023C ' 

00 

947 


DB 

XXTRK 

I Track size in sectors 

0230 # 

01 

940 


DB 

SSCYL 

i Cylinder size in tracks 

023E ' 

90 

949 


DB 

DTDSK 

i Disk size in cylinders 

023F ' 

02 

990 


DB 

FLPERR 

l Maximum number of retries 

0240 # 

20 

991 


DB 

DTPRCMP 

i Cylinder at which to change pre-comp 



992 

| •••••4 




0241 ' 


993 

D8DTD 

LABEL 

MORD 

l DOUBLE-BIDED. DOUBLE TRACK DENSITY 

0241 ' 

0001" 0000* 

994 


DD 

FLPDIR 

i Floppy disk Interface Routine vector 

0249 ' 

0200 

999 


DM 

XXSEC 

i Sector size in bytes 

0247' 

00 

996 


DB 

XXTRK 

I Track site in sectors 

0240 ' 

02 

997 


DB 

DSCYL 

i Cylinder site in tracks 

0249 ' 

90 

990 


DB 

DTDSK 

i Disk size in cylinders 

024 A' 

02 

999 


DB 

FLPERR 

I Maximum number of retries 

0248 ' 

20 

960 


DB 

DTPRCMP 

l Cylinder at which to change pre-comp 



961 







962 


BUBTTL 





963 


END 




No orroro dotoctod 



Pag# 1 


DSKIBR 

DSKIBR 
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TITLE - DSKIBR 

COMPUTER - B08B C 

ABSTRACT - This Is the drive independent* 

the PEGASUS disk driver. 


1 i /* 

2 f /* 

3 i /* 

4 i /* 

3 I /* 

6 i /* 

7 i /* 

B i /# 

9 i /# 

10 i /* 

11 i /* 

12 i /« 

13 I /* 

14 • /* 

13 • /* 

16 i /» 

17 i /* 

IB #/* 

19 i /* 

20 I /***»•****************** 

21 NAME DSKISR 

22 i #inc lude”peg: dskerr. ceq M 

60 « dine lude N peg: dskop. ceq" 

BO i Bine lude N peg: dskreq. ceq" 
91 i tine 1 tide "peg: dsksta. ceq" 


interrupt driven portion of 


All C code translated to assembly by the author. Some of the 
' routines are eipanded in line - in particular the interrupt 

overhead and entry/esit. This code probably only vaguely 
resembles what a real C compiler would generate since I 
could make use of special knowledge such as what registers 
were in use. The C code reflects the actual logic of the 
program but probably cannot translate directly into a working 
program without system-dependent re-writing. 

REGISTER 9 USED - All registers are restored intact 

STACK USED - at least 24 bytes* probably more. 


»*/ 

»/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
#/ 
• / 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
**/ 


/•Include disk error codes*/ 
/•Include disk generic operation codes*/ 
/•Include disk requests*/ 
/•Include disk states*/ 



103 

1 





/•Miscellaneous*/ 


104 

i #d*f In* 

RETRIES 

2 

/•Mas retries on an operation#/ 

-0002 

103 

RETRIES 

EQU 

2 





106 

f 







107 

i #d*f ine 

NULL 


0 


/•The null value*/ 

-0000 

10B 

NULL 

EQU 

0 





109 

i #def in* 

NO 


0 

/•Boolean 

value 'no' (false)*/ 

-0000 

110 

NO 

EQU 

0 





111 

i Mdef in* 

YES 


1 

/•Boolean 

value 'yes' (true)#/ 

-0001 

112 

YES 

EQU 

1 





113 

i 







114 




***** 




113 

i 

INCLUDE 

PEQ: INTCTLR. EQU 





116 

I 

INCLUDE 

PEQ: VECTOR. EQU 





117 

i 

INCLUDE 

PEQ: TIMEVT. EQU 





118 








237 

i •«*»»•• 



••••* 



-0060 

25B 

ACTEVT 

EQU 

1 shl EVTBTA 


i Mask for setting 

bit to activate evnt 

-0032 

239 

TIM I TV 

EQU 

30 


i Timeout Interval 

— 1.23 seconds 


260 

, /«•**»• 







261 

i Wdef i ne 

BYTE ch.r 





262 

263 

264 
263 
281 
2B2 


I ttdef ine BOOL char 
i tide fin* ADDR long 
I 

i tine lude**peg: dskr ib. ceq* 1 
i 


/•Include defintion for RIB*/ 


-0000 


SECT 


ROMDAT 
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283 

i BYTE 

D_EKNT • 



/aCountar for arror ratriaaa/ 




284 


EXTRN 

D_EKNT: BYTE 



i 



283 

f BYTE 

D_NCMD » 



/aNaxt dial oparationa/ 




2B6 


EXTRN 

D_NCMD: BYTE 






287 

• BYTE 

D_N5TA 



/aNaxt atata to antara/ 




2B8 


EXTRN 

D_NSTA: BYTE 






2B9 

l RIB 

D_REQ 1 



/•Raquaat Information Block!/ 




290 


EXTRN 

D_REG: BYTE 






291 

• BOOL 

D_60FT 



/aSoftwara intarrupt flag*/ 




292 


EXTRN 

D__60FT : BYTE 






293 

• BYTE 

D BTAT 



/aCurrant atata of drivara/ 




294 


EXTRN 

D BTAT: BYTE 






293 


EXTRN 

DSKEVT : BYTE 

l 

Diak drivar'a timaout avant 




296 


EXTRN 

DSKIBP: WORD 

1 

Containa diak intarrupt BP 




297 


EXTRN 

DKSSSV: WORD 

i 

For aaving intarruptad 6S 




298 


EXTRN 

DKBPSV: WORD 

1 

For aaving intarruptad BP 




299 







-0000 


300 


SECT 

ROMCOD 






301 


ASSUME 

CS: ROMCOD* DS: ROMDAT 






302 

I 








303 


EXTRN 

DC ALL: NEAR 






304 


EXTRN 

DFINI6: NEAR 






303 

i 








306 

i DSKI6RC ) 

/•Intarrupt racaivad. 

Diapatch according to atataa/ 




307 


PUBLIC 

DSKISR 



0000 ' 



308 

D6KIBR 

PROC 

FAR 






309 


LOCAL 







310 

i 








311 

I < 








312 

i global 

BOOL D_ 

_BSY i /alndicataa drivar la procaaaing an intarrupt*/ 




313 

i g 1 oba 1 

RIB D_ 

REQ i 


/•Diak drivar raquaat block*/ 




314 

• global 

BYTE D 

EKNT I 


/•Countar for arror ratriaaa/ 




313 

• global 

BYTE D_ 

JNCMD l 


/*Nait diak oparation*/ 




316 

i global 

BYTE D 

NSTA 1 


/aNaxt atata to antara/ 




317 

• global 

BYTE D_ 

BTAT l 


/•Currant atata of drivar*/ 




318 

• global 

BOOL D_ 

TIM i 


/•Timaout flag*/ 




319 

i 








320 

l INTERRUPT_ENTRYt J l /*Do ayttem ovarhaad 

thinga for Intarrupt procaatinga/ 

0000 ' 

IE 


321 


PUSH 

DB 

i i i 

Sava currant DS on uaar atack 

0001 ' 

2EFE 06 C19A 

322 


INC 

by ta ptr CB: INTCTR+CSWRAP 

i i i 

Incramant intarrupt countar 

0006' 

2EBE 

IE C 180 | 

323 


MOV 

DS* word ptr CS: DSADDR+CSWRAP 

• I l 

D3 : - • ROM data aagmant 

000B ' 

BC 16 

0009 H ‘ V 

324 


MOV 

DKSSSV* SS 

i f i 

Bava currant SS 

OOOF ' 

89 26 

000 A- <3^ 

323 


MOV 

DKSPSV* BP 

i i i 

Bava currant SP 

0013' 

BC DC 

< 

326 


MOV 

SP. DS 

i i f 

B9 : - ® ROM data/itack aag 

001 3 ' 

BE D4 


327 


MOV 

SS. BP 

i f i 


0017' 

BC 0008" 

32B 


MOV 

BP, of flat DBKISP 

; f i 

BP intarrupt atack ptr 

OOl A ' 

30 


329 


PUSH 

AX 

i i i 

Bava ragiatan uiad for 

001 B ' 

33 

V 

330 


PUSH 

BX 

i i i 

intarrupt ovarhaad procaaaing 

001C' 

06 


331 


PUSH 

EB 

i i i 


00 ID' 

31 


332 


PUSH 

CX 

i f ) 

Bava avargthing alaa that 

001E ' 

32 


333 


PUSH 

DX 


might gat uaad alao 

00 IF ' 

36 


334 


PUSH 

81 

i f i 
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0020' 

97 


339 


PUSH 

DI 

i 1 1 

0021 ' 

E4 19 


336 


IN 

AL. 1NTA01 

lit Mast laval 6 Intarrupts 

0023 ' 

0C 40 


337 


OR 

AL. not ENAB6 

I i i 

0029 ' 

E6 19 


338 


OUT 

INTA01. AL 

i 1 1 




339 

i 




0027' 

00 26 0000 N 

7F 

340 


AND 

DBKEVT+IEVFLO. not ACTEVT 

ill Abort tlmaout raquast 

002C ' 

C7 06 OOOO" 

0032 

341 


MOV 

Mori ptr DSKEVT+IEVCTR* TIMITV 

ifiRasat Tlmar count 

0032 ' 

FB 


342 


8T1 


I Enabla Intarrupts 




343 

I 




0033 ' 

00 3E OOOO" 

00 

344 


CMP 

D REQ+STAT.E NORM 

iQi Tlmaout? 

0030 ' 

79 OC 


349 


JNE 

204 

1 Yi Jump, don't gat status. 

003A ' 

00 3E 0006" 

00 

346 


CMP 

D STAT.B IDLE 

i Qi Baginning a raquast? 

003F ' 

74 09 


347 


JE 

204 

« Yi Jump, don't gat status. 

0041' 

BO 00 


340 


MOV 

AL.OP RI8 . 

lOat status of last oparatlon. 

0043' 

E0 OOOB" 


349 


CALL 

DC ALL 

i 


-0046 


390 

204 

EGU 

4 

f 




391 

I 




0046' 

C6 06 0003" 

00 

392 


MOV 

D_NBTA# NULL 

iClaar nait stata Indicator 

004 B ' 

C6 06 0002" 

FF 

393 


MOV 

DJMCMD* OP_NUL 

iCIaar nait command Indicator 




394 

l 




0090' 

BA IE 0006" 


399 


MOV 

BL. D_BTAT 

IDispatch stata 

0094' 

30 FF 


396 


XOR 

BH. BH 

lOat stata. 

0096' 

01 DB 


397 


ADD 

BX. BX 

iConvart to a word tabla Indai. 

0090' 

00 3E 0006" 

03 

390 


CMP 

D BTAT# 8 MAX 

I Qi Is this ona daflnad? 

009D' 

77 40 


399 


JA 

LIDEF1 

i Nj Go Mandla as an aui stata. 

009F ' 

80 3E OOOO" 

00 

360 


CMP 

DJRE0+8TAT. E_NORM 

I Ast this one* for all stata* 




361 




I which naad to know 

0064' 

2EFF A7 0069" 

362 


JMP 

C8: 404CBX1 

i 

0069' 

0071" 


363 

404 

DU 

LI IDLE 

i 

006B ' 

0076" 


364 


DU 

L1UAIT 

i 

0060' 

007B" 


363 


DU 

L1I6EEK 

i 

006F ' 

008F" 


366 


DU 

LI DONE 

i 




367 

l 





-0071 


360 

LI IDLE 

EQU 

4 

lUaltlng for a raquast 

0071 ' 

BO 09 


369 


MOV 

AL.OP BON 


0073' 

E0 OOOB" 


370 


CALL 

DC ALL 

i 


-0076 


371 

L1MAIT 

EQU 

4 

lUaltlng to ratrg a raquast 

0076' 

E8 OO0D 


372 


CALL 

REQ PR 

9 Than procass tha raquast 

0079' 

EB 29 


373 


JMP 

short ptr L1END1 

land finish up 




374 

9 





-007B 


373 

LjUBEEK 

EQU 

4 

i Implicit saak pandlng 




376 

o 

CMP 

D^REQ^STAT. E.NORM 

i Qi Error from saak oparatlon? 

007B ' 

79 OB 


377 


JNE 

604 

i Yi jump and hand la It. 

0070' 

AO OOOO" 


378 


MOV 

AL. DJREQ-fCYL 

i Ni Bat naw currant cgllndar 

0080' 

A2 OOOO" 


379 


MOV 

D REG+CURCYL. AL 

i 

0003' 

E0 0000 


300 


CALL 

REG PR 

i And procass pandlng I/O raquast 

0006' 

EB 1C 


301 


JMP 

short ptr L1END1 

i 

0080' 

BO 02 


302 

604: 

MOV 

AL. OP_EP 

i Procass arror. 

0086 ' 

EB OOOB" 


303 


CALL 

DC ALL 

i 

0000' 

EB 19 


304 


JMP 

short ptr LIEND1 

i And finish up 




303 

I 





-008F 


306 

LI DONE 

EQU 

4 iGensral operation complatlon ponding 
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3B7 

1 

CMP 

D REQ+STAT . E_NORM 

i Qi Any •rron from operation? 

OOBF # 

79 07 


3B8 


JNE 

804 

i Yi Jump and handle them. 

0091 ' 

C6 06 0003" 

00 

3B9 


MOV 

D_NSTA. BRIDLE 

i Ni Then uie're finished 

0096' 

EB OC 


390 


JMP 

vhort ptr L1END1 

i 

0098 ' 

BO 03 


391 

B04: 

MOV 

AL. OP_EP 

iff there was an error 

009A ' 

EB OOOB" 


392 


CALL 

DC ALL 

iProcess it 

009D ' 

EB 09 


393 


JMP 

•hort ptr L1END1 

i 




394 

i 





-009F 


399 

L1DEF1 

EQU 

4 

i Driver is in a device-dependent state 

009F ' 

BO 01 


396 


MOV 

AL* OP_ABP 

i Invoke device-dependent 

OOAI ' 

EB OOOB" 


397 


CALL 

DC ALL 

i auxiliary state processor 




398 

l 





■00 A 4 


399 

L1END1 

EQU 

4 

i i 

00A4 ' 

BO 3E 0002" 

FF 

400 


CMP 

D JMCMD* OP_NUL 

i Qi New command to execute? 

00A9 ' 

74 06 


401 


JE 

1104 

i Ni Jump and continue 

OOAB' 

AO 0002" 


402 


MOV 

AL. D NCMD 

i Yi Oo execute it 

OOAE ' 

EB OOOB" 


403 


CALL 

DC ALL 

i 


-OOBI 


404 

1104 

EQU 

4 

1 




409 

f 




OOBI ' 

80 3E 0003" 

00 

406 


CMP 

D NSTA. B_IDLE 

i Qi Are we finished with op? 

00B6 ' 

79 OF 


407 


JNE 

1404 

i Ni Jump and continue 

00B8 ' 

C6 06 0001" 

00 

40B 


MOV 

D EKNT » NULL 

i Yi Do termination processing 

OOBD ' 

BO OA 


409 


MOV 

AL* OP_TER 

» 

OOBF ' 

EB OOOB" 


410 


CALL 

DC ALL 

i 

00C2 ' 

EB OOOC" 


411 


CALL 

DFINIBH 

iBlgnal completion of the request 

00C9 ' 

EB 09 


412 


JMP 

■hort ptr 1904 

i 

00C7 ' 



413 

1404: 




OOC7 ' 

BO OE 0000" 

BO 

414 

1 

OR 

DBKEVT ♦ I EVFLG* ACTEVT 

i Btart timeout event 


-OOCC 


419 

1904 

EQU 

4 

l 




416 

l 




OOCC ' 

AO 0003" 


417 


MOV 

AL. DJ4STA 

i Update state 

OOCF' 

A2 0006" 


41B 


MOV 

D_BTAT. AL 

i 




419 

1 




OOD2 ' 

FA 


420 


CLI 


i i i Mask interrupts at processor level 




421 

1 



ii (Exit from interrupt processing 

00D3 9 

E4 19 


422 


IN 

AL. INTA01 

ill Enable level 6 interrupts 

OOD9' 

24 BF 


423 


AND 

AL. ENAB6 

i i i 

00D7 ' 

E6 19 


424 


OUT 

INTA01 « AL 

i i i 

00D9 ' 

9F 


429 


POP 

DI 

ill Restore registers 

OODA ' 

9E 


426 


POP 

61 

i i i 

OODB ' 

9A 


427 


POP 

DX 

ill 

OODC ' 

99 


42B 


POP 

CX 

i i i 

OODD ' 

FE OE 0009" 


429 


DEC 

D_BOFT 

ill Q: Is software interrupt? 

OOEi ' 

74 11 


430 


JZ 

SOFOUT 

ill Y: Take software int exit 

00E3 * 

FE 06 0009" 


431 


INC 

D_90FT 

ill N: Restore flag to 0 

00E7' 

BE 06 0009" 


432 


MOV 

ES. DK6SBV 

III ES : — interrupted SB 

OOEB ' 

8B IE OOOA" 


433 


MOV 

BX. DKSP6V 

ill BX : - interrupted SP 

OOEF ' 

2EFF 2E Cl 6* 

434 


JMP 

duiord ptr CS: X ITVEC»4*CSWRAP ill Common interrupt vxlt 




439 




i i l 

00F4 ' 

2EFE OE C19A 

436 

SOFOUT: 

DEC 

by t« ptr CS: INTCTR+C6WRAP ill D«cr#ment Interrupt counter 

00F9 ' 

07 


437 


POP 

ES 

ill Restore interrupted ES 

OOFA ' 

9B 


438 


POP 

BX 

iii Restore interrupted BX 
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OOFB' 

90 


439 


POP 

AX 

ill Raatoro interrupt** AX 

OOFC ' 

BB 26 OOOA" 


440 


MOV 

BP. DKBPBV 

I i i Raatora intarrup tad BP 

OlOO' 

BE 16 0009" 


441 


MOV 

88. DKBSBV 

ill Raatoro interrupted BB 

0104' 

IF 


442 


POP 

D9 

III Raatora lntarruptad DB 

0109 ' 

CF 


443 


I RET 


III And raturn from tha Interrupt 




444 





0106' 



449 

REO JPR 

PROC 

NEAR 

iProceaa a uaar request 




446 


LOCAL 






447 

f 







448 

I global 

BYTE D. 

_NCMD 1 

/•Dlafc driver nait command*/ 




449 

1 global 

BYTE D 

JM9TA • 

/«Dlak driver nait etate*/ 




490 

f global 

RIB D 

_REQ I 

/•Dial driver requeat block*/ 




491 

i 







492 

1 twitch 

IDJ1E0.FUNC1 t 

/•Then diapatcb requeat to handler*/ 

0106' 

0A IE OOOO- 


493 


MOV 

BL. D RE0-9-FUNC 

i NOTE: Ue are truating that bad 

010A ' 

30 FF 


494 


XOR 

BH. BH 

i function code* will never get 

OlOC' 

01 DB 


499 


ADD 

BXf BX 

i this far 

010E ' 

2EFF A7 0113 

* 

496 


JMP 

CS: lOtCBXl 


0113' 

0127- 


497 

tot 

DU 

L9BEEK 

* 

0119' 

012C- 


49B 


DU 

L9READ 


0117' 

0131" 


499 


DU 

L3WRIT 


0119' 

01 ID- 


460 


DU 

L9VFC 


01 IB ' 

0122- 


461 


DU 

L9VFD 





462 

i 







463 

« can 

RQ_VFC 

: D NCMD - OP VFC » 

D NBTA - B DONE i break i 

01 ID' 

BB 0306 


464 

L9VFC: 

MOV 

AX. OP VFC or (B DONE ihl B) 

0120' 

EB 12 


469 


JMP 

abort ptr COMMON 





466 

i 







467 

f cat# 

WQ_VFD 

: D NCMD - OP VFD • 

D NBTA - B DEP 1 break 1 

0122' 

BB FF07 


46B 

L9VFD: 

MOV 

AX. OP VFD or <S DEP 

• hi 0) 

0129' 

EB OD 


469 


JMP 

abort ptr COMMON 





470 

l 







471 

i cat* 

RQ SEEK 

: D NCMD - OP NUL • 

D NBTA - B IDLE i break i 

0127' 

BB OOFF 


472 

L9BEEK: 

MOV 

AX. OP NUL or <B IDLE ahl B> 

012A ' 

EB OB 


473 


JMP 

•hort ptr COMMON 





474 

l 







479 

« can 

RQJIEAD 

: D NCMD - OP IR I 

D_NBTA - B_DEP i break 1 

012C ' 

BB FF03 


476 

L9READ: 

MOV 

AX. OP IR or <8 DEP 

abl B) 

012F ' 

EB 03 


477 


JMP 

abort ptr COMMON 





478 

l 







479 

i caio 

RO URITE : DJ4CMD - 0P_1U • 

D__NBTA - B_DEP i break • 

0131' 

BB FF09 


480 

L9URIT: 

MOV 

AX. OP_IU or C8_DEP 

•hi B> 




481 

f 

JMP 

abort ptr COMMON 





482 

I 




0134' 

A2 0002- 


483 

COMMON: 

MOV 

D NCMD. AL 


0137' 

60 26 0003" 


484 


MOV 

D_NSTA. AH 





489 

» 




0I3B ' 

BA 16 0000- 

V 

486 


MOV 

DL. D_REQ+CURCYL 

• Qi la Current cylinder correct7 

013F ' 

3A 16 0000- 


487 


CMP 

DL. D_REQ+CYL 

i 

0143' 

74 OA 


488 


JE 

40* 

i Yi Jump and return to proceaa req. 

0149' 

C6 06 0002- 

04 

409 


MOV 

D NCMD. OP IB 

i Ni Change requeat to Geek. 

014A ' 

C6 06 0003- 

02 

490 


MOV 

D NBTA. B I SEEK 
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DSKTBT. BRC 


OOOO' 


1 I 



2 

1 TITLE 

- DSKTBT 




3 

1 COMPUTER - BO80 ASSEMBLY LANGUAGE 




4 

I ABSTRACT - Quick test of floppy disk 

sector buffer and controller hardware 


5 

I , 

for p ower-up diagnostics. 

This 

version runs all the tests and 


6 

f 

sets bits for each failed 

test 



7 

1 REQIBTERS USED - AX, BL. CX, DX 




8 

a 

l STACK 

USED - 

4 Bytes maximum 




10 


NAME 

DBKTST 




11 


BUBTTL 




-FFFF 

12 

DEBUG 

EQU 

OFFFFH 




13 


BUBTTL 

EXTERNALS and PUBLICS 




14 


»*««»•«« 





13 


PUBLIC 

DBKTST 




16 


EXTERN 

CRTTBT: NEAR 

i 

The beginning of the CRT tests 


17 


EXTERN 

DECLED: NEAR 

i 

Decrement diagnostic LED pattern 


18 


EXTERN 

DRVT6T: NEAR 

i 

Checks for connected drives 


19 


EXTERN 

DSK1NI: NEAR 

i 

Disk driver in i t ia 1 1 xa t i on 


20 


EXTERN 

DSPDIE: NEAR 

i 

Display and die routine 


21 


EXTERN 

E CMD: ABB 

i 

Command execution error 


22 


EXTERN 

E EVEN ABS 

i 

Even-order bit In secbuf bad error 


23 


EXTERN 

E_ODD: ABS 

i 

Odd-order bit In secbuf bad error 


24 


EXTERN 

E __REG: ABS 

i 

FDC register bad error 


23 


EXTERN 

LED0I1: ABS 

i 

Disk diagnostic LED pattern 


26 


EXTERN 

TBTPAT : BYTE 

i 

Table of test patterns for regs. 

-0000 

27 


SECT 

ROMDAT 




28 


EXTERN 

DSKC__M: BYTE 

« 

RAM copy of disk control port 


29 


EXTERN 

DSKS_M: BYTE 


RAM copy of disk select port 


30 


BUBTTL 

Global equates 




31 







32 

f 

INCLUDE 

PEG: PORTADDR. EQU 




33 

1 

INCLUDE 

PEG: LATCHES. EQU 




34 

1 

INCLUDE 

PEG: FLOPPY. EQU 




33 







134 


BUBTTL 

Local equates 




135 






-OOOl 

136 

BSYMSK 

EQU 

0000000 IB 

i 

Busy bit mask for FDC ST A register 

-0040 

137 

C_STPN 

EQU 

0 I OOOOOOB 

i 

Step-in/no update/ uni oad/noveri f y /6 

•OODO 

138 

C STOP 

EQU 

1101 OOOOB 

i 

Force interrup t/no interrup ts 

— OOOA 

139 

D0_324 

EQU 

10 

i 

32.4 usee delay count 

-01 DC 

140 

D2 OOO 

EQU 

476 

I 

20.000 msec delay count 

-04A7 

141 

D4 999 

EQU 

1191 

f 

4.9998 msec delay count 

— OOOF 

142 

D6ELCT 

EQU 

OFH 

i 

Deselect-all code 

-0055 

143 

EVNMSK 

EQU 

01 010101B 

i 

Even bits mask for secbuf errors 

— OOAA 

144 

ODDMSK 

EQU 

10101010B 

i 

Odd bits mask for secbuf errors 

-0400 

143 

SBFSIZ 

EQU 

1024 

i 

Sixe of sector buffer in bytes 


146 


BUBTTL 

Top level of power-up 

disk 

d i agnostics 


147 






-0000 

148 


SECT 

ROMCOD 




149 


ASSUME 

CS: ROMCOD. DS: ROMDAT 




150 

DSKTBT 

PROC 

NEAR 
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Top livil of p ower-up disk 

diagnostics 

DSKTBT. 

BRC 




0000' 

E0 

0010 

101 


CALL 

BBFTBT 

l 

Perform floppy disk tests 

0003* 

08 

D2 

102 


OR 

DL, DL 

i 

Q: Did any tests fail? 

0003' 

74 

00 

103 


JZ 

NOFAIL 

I 

N: Continue DSKTBT 

0007 ' 

BO 

OA* 

104 


NOV 

AL. LED011 

1 

AL : ■ Disk diagnostic LED pattern 

0009' 

E? 

oooo- 

100 


JHP 

DSPDIE 

l 

Noe, go display and die 

oooc' 

EB 

0003- 

106 

NOFAIL: 

CALL 

DRVTBT 

1 

Bee what drives we've got 

OOOF ' 

E8 

0004" 

107 


CALL 

DSKINI 

1 

Initialixe disk driver 

oo! a' 

EB 

0002" 

10B 


CALL 

DECLED 

I 

Decrement diagnostic LED pattern 

001 3' 

E? 

0001- 

109 


JNP 

CRTTBT 

1 

Continue with CRT test 




160 




»•*•«« 





161 


BUBTTL 

BBFTBT - Bsc tar buffer 

tss t 





162 






0010' 



163 

BBFTBT : 





0010' 

AO 

OOOC" 

164 


NOV 

AL. DSKC J1 

i 

AL :■ RAN copy of control port 

001 B' 

24 

3F 

160 


AND 

AL, NNA5K 

i 

AL :■ buffer control bits only 

001 D' 

OC 

00 

166 


OR 

AL, ACCBUF 

f 

AL set up for CPU < — ) BUFFER 

00 IF ' 

E6 

00 

167 


OUT 

DSKC P, AL 

i 

Hit control port 

0021' 

A2 

OOOC" 

16B 


MOV 

DSKC_N, AL 

i 

Update RAN copy 




169 

« 





0024' 

BA 

0020 

170 


NOV 

DX. BECBUF 

f 

DX :■ Pointer to sector buffer 

0027' 

BD 

0100 

171 


NOV 

BP, 0100000000B 

i 

BP : ■ test pattern 

002A ' 

30 

FF 

172 


XOR 

BH. BH 

i 

BH Error bit accumulator 




173 

I 





002C ' 

8B 

CO 

174 

BBF_LP: 

NOV 

AX, BP 

i 

BP : ■ Copy of test pattern 

002E ' 

E6 

22 

170 


OUT 

RBTBUF. AL 

i 

Reset seebuf counter 

0030' 

B9 

03Fr 

176 


NOV 

CX, BBFBI Z-l 

i 

CX : - seebuf site in bytes 

0033' 

D1 

CB 

177 


ROR 

AX. 1 

i 

Bet the carry flag correctly 

0030' 

EE 


170 

WJLOOP: 

OUT 

DX. AL 

i 

write out the data 

0036' 

DO 

DO 

179 


RCL 

AL. 1 

i 

walk it 

0038' 

E2 

FB 

1B0 


LOOP 

W_LOOP 

i 

write to all of sector buffer 

003A ' 

E6 

22 

181 


OUT 

RBTBUF, AL 

f 

Reset sector buffer counter 

0030 ' 

B? 

03FF 

182 


NOV 

CX.SBFBIZ-1 

i 

CX :■ sector buffer site in bytes 

003F ' 

8B 

CO 

183 


NOV 

AX, BP 

» 

Get starting test pattern 

0041 ' 

Di 

C8 

184 


ROR 

AX, 1 

i 

Bet the carry flag correctly 

0043' 

BA 

DB 

180 


NOV 

BL, AL 

f 


0040' 

EC 


186 

RJ.OOP: 

IN 

AL, DX 

f 

AL :* data from sector buffer 

0046' 

9F 


187 


LAHF 


i 

Save carry flag 

0047' 

30 

DB 

IBB 


XOR 

AL. BL 

i 

AL ; ■ bits in error (if any) 

0049 ' 

08 

C7 

189 


OR 

BH, AL 

i 

BH :■ Accumulated bad bits. 

004 B ' 

9E 


190 


BAHF 


f 

Retreive carry flag. 

004C ' 

DO 

D3 

191 


RCL 

BL, 1 

i 

Generate next test byte 

004E ' 

E2 

FO 

192 


LOOP 

R LOOP 

i 

continue till testing finished 

0000' 

81 

FO FFFF 

193 


XOR 

BP, OFFFFH 

> 

test the complement 

0004' 

78 

D6 

194 


J3 

SBFJLP 

f €)# 

Done with straight and comp? 




190 

i 



i Nf 

jump and do complement. 

0006' 

Dl 

ED 

196 


BHR 

BP, 1 

i Qi 

All nine loops? 

0008' 

73 

D2 

197 


JNB 

SBFJLP 

i Ni 

Jump and continue. 

003A ' 

30 

D2 v 

198 


XOR 

DL. DL 

i 

Clear error accumulator. 

OOOC' 

BA 

C7 

199 


NOV 

AL. BH 

i 

AH ; ■ copy of the bad bits 

OOOE ' 

AB 

00 

200 


TEST 

AL, EVNMSK 

i 

Q: Are any even-order bits bad? 

0060' 

74 

03 

201 


JZ 

EVNJDK 

1 

N: Go check the odd bits 

0062 ' 

BO 

CA 07# 

202 


OR 

DL. ELEVEN 

J 

Y: Bet even bit bad indicator 
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0069* 

A8 AA 

203 

EVNJDH: 

TEST 

AL# 0DDM3K 


l 

0: Are eng odd-order bite bed? 

0067* 

74 03 

204 


JZ 

ODD JDK 


l 

N: Oo teet another byte 

0069' 

80 CA 08* 

209 


OR 

DL# E_ODD 


l 

Y: Bet odd bit bad Indicator 

006C* 


206 

ODD JDK: 








207 

I 

JHP 

SHORT REOTBT 


l 

Then go teet the diet controller 



208 









209 


BUBTTL 

REOTBT - FDC regie ter 

teet 




210 







006C* 


211 

REQTBT: 






006C * 

AO OOOC" 

212 


MOV 

AL# DSKC M 


9 

AL :■ R^M copg of control port 

006F* 

24 3F 

213 


AND 

AL. MMASK 


i 

AL :■ buffer control bite only 

0071 * 

OC 80 

214 


OR 

AL# ACCFDC 


f 

AL lit up for CPU < — > FDC 

0073* 

E6 00 

219 


OUT 

DSKC_P. AL 


i 

Hit control port 

0079* 

A2 OOOC" 

216 


MOV 

DSKC JM# AL 


f 

Update RAM copg 



217 

f 





0078* 

BE OOOB* 

218 


MOV 

81# OFFSET TBTPAT 

9 

Bl : « addreee of teet pattern table 

007B * 

B9 0004 

219 


MOV 

CX. 4 


1 

CX :■ eet teet count for 4 teete 



220 

9 






007E* 

2E8A 04 

221 

REO_LP : 

MOV 

AL# CB: BYTE PTRCBI1 

1 

Teet pattern 

0001* 

E6 21 

222 


OUT 

FDCTRK. AL 


1 

Load pattern In track regleter 

0003 ' 

2E8A 44 01 

223 


MOV 

AL# CS: BYTE PTR 

1181 1 

1 

Teet pattern 

0087* 

E6 23 

224 


OUT 

FDCSEC# AL 


1 

Load pattern In eector regleter 

0089 * 

2E8A 44 02 

229 


mov 

AL. CB: BYTE PTR 

2C8U 

1 

Teet pattern 

0080 * 

E6 23 

226 


OUT 

FDC DAT. AL 


1 

Load pattern in data regleter 

008F # 

E4 21 

227 


IN 

AL# FDCTRK 


9 

AL : ■ Pattern from track regleter 

0091 * 

2E3A 04 

228 


CMP 

AL# CS: BYTE PTR 

CBM 

9 

Q: le pattern ok7 

0094* 

79 19 

229 


JNE 

REOBAD 


9 

N: Oo indicate regleter failure 

0096* 

E4 22 

230 


IN 

AL. FDCSEC 


9 

AL :■ Pattern from eector regleter 

0098* 

2E3A 44 01 

231 


CMP 

AL. C9:BYTE PTR 

1 C81 3 

9 

Q: Ie pattern ok? 

009C * 

79 OD 

232 


JNE 

REOBAD 


9 

N: Oo indicate regieter failure 

009E * 

E4 23 

233 


IN 

AL. FDCDAT 


9 

AL :■ Pattern from data regieter 

OOAO * 

2E3A 44 02 

234 


CMP 

AL. CB: BYTE PTR 

2CBI 3 

9 

0: Ie pattern ok? 

00A4 * 

79 09 

239 


JNE 

REOBAD 


9 

N: Oo indicate regieter failure 

00A6 * 

46 

236 


INC 

BI 


9 

Point to nest teet pattern 

00A7 * 

E2 D9 

237 


LOOP 

REO LP 


9 


00A9 * 

EB 03 

238 


JMP 

SHORT REOJDK 


9 

Continue regieter teet 



239 

i 





OOAB * 

80 CA 09* 

240 

REOBAD: 

OR 

DL. E_REO 


9 

Bet regieter failed indicator 



241 

1 






OOAE* 


242 

REOJDK: 








243 

f 

JMP 

CMDTBT 


1 

Then go teet the dlefc controller 



244 







^ ■ . 


249 


BUBTTL 

CMDTBT - FDC command 

teet 




246 







OOAE* 


247 

CHDTBT: 








248 

i 








249 

» 

MOV 

AL# DSELCT 


I 

AL :■ deeelect evergthing code 


V 

290 

i 

OUT 

DSKS J», AL 


9 

Hit floppg eelect port with that 



291 

i 

MOV 

DSKB n. AL 


9 

Aleo update RAM copg 

OOAE* 

BO DO 

292 


MOV 

AL. C JBTOP 


« 

AL :■ command to etop FDC 

OOBO* 

E6 20 

293 


OUT 

FDCCMD. AL 


1 

Tell FDC to etop 



294 

f 
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00B3 * 

B9 

OOOA 

399 


MOV 

CX. D0_324 

00B9 ' 

E3 

FE 

296 


LOOP 

% 




297 

1 



00B7' 

BO 

40 

298 


MOV 

AL. C_BTPN 

00B9' 

E6 

30 

299 


OUT 

FDCCMD* AL 




260 

1 



OOBB 9 

B9 

01 DC 

361 


MOV 

CX.D2 000 

OOBE 9 

E3 

FE 

263 


LOOP 

% 

ooco' 

E4 

30 

263 


IN 

AL* FDC ST A 

00C3 9 

34 

01 

264 


AND 

AL, BSYMSK 

00C4 # 

74 

OC 

269 


JZ 

CMDBAD 




366 

I 



00C6 9 

B9 

04A7 

267 


MOV 

CX.D4 999 

00C9 9 

E3 

FE 

268 


LOOP 

% 




269 

1 



OOCB' 

E4 

30 

270 


IN 

AL.FDCBTA 

OOCD 9 

34 

01 

271 


AND 

AL. BSYMSK 

OOCF 9 

79 

01 

272 


JNZ 

CMDBAD 




273 

1 



OODi ' 

C3 


274 


RET 





379 

1 



00D3 9 



276 

CMDBAD: 



OOD3 9 

BO 

DO 

277 


MOV 

AL. C_BTOP 

00D4 9 

E6 

20 

278 


OUT 

FDCCMD, AL 

00D6 9 

B9 

OOOA 

279 


MOV 

CX. D0_324 

00D9 9 

E3 

FE 

280 


LOOP 

% 




281 

» 






282 

f 






283 

i 



OODB 9 

80 

CA 06# 

284 


OR 

DL. E _CMD 

OODE' 

C3 


289 


RET 





286 







287 


END 



No trrori datoctad 


o 


3 


I -3 


Wait about 33.4 uioc 


AL : ■ ittp-ln command 

Hit floppy command port with that 

Halt about 3 mac 

AL :■ floppy itatus 
Q: la controller itill buay? 

N: To early, go dia 

Halt total of 7 mtic 


AL FDC atatua 

Q: la tha controller atlll buay? 

Y: Should be finiahed now* dammit 

N: All teata done* return 


AL :■ Command to atop FDC 

Hit floppy command port with that 

Wait about 33.4 uaec 0.8 

31.6 


33. 4 


i Get command teat failed indicator 

i And return 
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33 

33 

34 
33 

36 

37 
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39 

30 

31 

33 
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TITLE - FLPDIR 

COMPUTER - 0008 ASSEMBLY LANGUAGE 

ABSTRACT - Contain* coda which imp lament ■ the Pegasus disk driver 
Generic Disk Operations for the floppy disk controller: 

FLPFI - Force-interrup t (not used for floppy disk) 

FLPIR - Initiate Read 

FLPIW - Initiate Write 

FLPVFC - Initiate Verify CRC 

FLPVFD - Initiate Verify Data 

FLPIS - Initiate Seek 

FLPASP - Auxiliary State Processor 

FLPEP - Error Processor 

FLPRIS - Read and Interpret Btatus 

Also contains the following event entry points: 

FLTIME — General floppy disk timing event 
MOTOFF — Floppy disk motor time-out handler 

And the following entry point called during power-up testing: 
FRCINT - Terminate FDC pending operation 
RE0I8TER9 USED - 
8TACK USED - 


NAME FLPDIR 

6UBTTL Floppy disk Generic Disk Operations 


The following fixes were made In version 1.01: 

* Problem: MSDOS 0001 - "disk-ROM no error reported on DRQ low". 

Solution: The "no data" error is now comprehended by FLPRS 

a Problem: MSDOS 0003 - "disk-ROM Seek error reporting too global". 

Solution: The error processor! FLPEP# now does a "read address" operation 
when a "record not found" error occurs and uses the information gained 
thereby to better define the actual prob 1 em/error, 
a Problem: the "force-interrup t-on-ne x t-inde x-mark " trick to determine if 

media is present in the drive is not needed as the floppy disk controller 
counts Index marks during I/O and times out after 3 have passed (I second 
and returns "record not found" if the operation has not completed. That 
logic doesn't work anyway. 

Solution: That logic was removed to make room for the fix for MSDOS 0003 

which correctly returns error codes for the original situation as well, 
a disk driver not waiting for disk motors to stabilixe. 

The select logic# SELECT# has been modified to correctly determine the 
motor's current status and initiate a delay If needed, 
a Need the 30 msec head-settling delay after seek. 


\ 

\ 
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Pago l-l 


-0000 


-0000 


-0000 


— OOOF 


i The meek logic* FLPIB. store* a mask to be used by the initiate I/O logic* 
f INITIO* when issueing I/O commands to the floppy disk controller. INITIO 

i clears this mask after using it so that the delay is Induced only Immedl- 

i ately following seek operations. 

I The following changes were made in version 1.22: 

i * The motor off time has been reduced to 10 seconds and the select logic 
I modified so that when an external drive is selected* the Internal motors 
i are not turned off. Hotors are turned on as needed and turned off only 

« when no activity on any drive has been detected for 10 seconds. 

I • Borne debug code was removed to make room for the changes, 
i eaea********* ***#*« ********** » ««*»*« «««»««« »*»«»*««***»*« »*»«»•«»**«««« 
l PUBLIC DEFINITIONS 


SECT RONCOD 
PUBLIC FLPDIR 
PUBLIC FLTIME 
PUBLIC FRC INT 
PUBLIC MOTOFF 


f Floppy disk Disk Interface Routine 
i Floppy timeout entry point 
i Terminate FDC function in progress 
i Turn off all floppy drive motors 


EXTERNAL REFERENCES 


SECT ROMCOD 
EXTRN BOFINT : NEAR 

EXTRN T I MOUT : NEAR 


I Software Interrupt routine 
l substituted for FLTIME 
I The timeout subroutine 


SECT 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 

EXTERN 


ROMDAT 
DJEKNT: BYTE 
D_NCMD: BYTE 
DJMSTA: BYTE 
D_REQ: BYTE 
D_SOFT: BYTE 
D_STAT: BYTE 
D_WKBP: BYTE 
DSKC_M: BYTE 
DSK9_M: BYTE 
FL1EVT: BYTE 
FL2EVT: BYTE 
INVALID: ABS 


i Disk driver error counter 
i Disk driver next generic opcode 
i Disk driver next state 
I Request Information Block 
f Software interrupt flag for DSKISR 
» Disk driver current state 
i Disk driver general workspace 
I Memory Image of floppy control port 
i Memory image of floppy select port 
i Floppy disk motor-off timing event 
i Floppy disk general usage timing evt 
i Invalid position value 


PEGASUS INTERRUPT VECTORS 
INCLUDE PEG: VECTOR. EQU 


PEGASUS DISK HARDWARE CONSTANT DEFINITIONS 
INCLUDE PEG: FLP ADR. EQU 


i I/O and Interface control port mask used by INITIO 
I0J1SK EQU <not PRECMP ) and <not SIDE_0) and MMABK 

i ««»««*»« *«#« e #»*** #»#* ##**«*# «« **# ««»«»« ««»»«» »«««»» »#»»«« 
l FLOPPY DISK CONTROLLER DEFINITIONS 



FLPDIR CRB0B6/1 I version 10.34.17 3-Aug~B3 16:39:29 

Floppy dish Generic Disk Operation* FLPDIR. BRC 


Pago 1-2 



223 

« 

INCLUDE 

PEO: FLPCMD. EQU 




226 




i# 



287 






-OOD0 

288 

FI I 

EQU 

C_FOR or IMMEDI 


i Force-lnterrup t-lmmedlate command 


289 

l 





-00D4 

290 

INT1DX 

EQU 

C_FOR or INDEXP 


i Forca-lntarrupt on lndes pulse 


291 

« 





-0003 

292 

READ 

EQU 

C_RD8 or T28CHK 


I Road with olda-aaiact chock 


293 

i 





-000 i 

294 

REBTOR 

EQU 

C_RE8 or T18T06 




293 

• 






296 

l 


Seek + update 


♦ load + 6 mate 


297 

l 


track 


head atop 


290 

• 


rag 


rata 

-0010 

299 

SEEK 

EQU 

C_BEE or T1UPDT 

or T1HL0D or T1BT06 


300 

« 





-0040 

301 

STEP IN 

EQU 

CJBTI or T1BT06 


« Stap-in command 


302 

« 





-00A2 

303 

WRITE 

EQU 

C_WRB or T2BCHK 


« Write with side-select check 


304 







303 

I 


STATE DEFINITIONS i GENERAL 6 FLOPPY! 


306 







307 


INCLUDE 

PEO: D6K8TA. EQU 


i Include dlek driver otate equate* 


308 

« 



1 

B_riir - > DrlveV state* 

-OOFF 

309 

0 DEP 

EQU 

233 

I 

Device-dependent code muet eat etate 

-oooo 

310 

8 IDLE 

EQU 

0 

1 

Waiting for a request 

-0001 

311 

8 WAIT 

EQU 

1 

1 

Waiting to retry a request 

-0002 

312 

8 I GEEK 

EQU 

2 

1 

Implicit *eek pending 

-0003 

313 

BDONE 

EQU 

3 

1 

Operation completed 

-0003 

314 

8_MAX 

EQU 

3 

1 

The highest "standard" state number 


313 

i 



1 

Other values are device-dependent 


316 





-0004 

317 

BJFRX 

EQU 

BJIAX + l 


I Floppy read transfer state 

—0003 

310 

8 VFD 

EQU 

8 HAX+2 


i Verify data state 

-0006 

319 

BJREC1 

EQU 

B_MAX+3 


i Attempting error recovery state 

-0007 

320 

8 RDA 

EQU 

B_MAX+4 


« Processing read address 

-0007 

321 

8_FHAX 

EQU 

BJ1AX+4 


i The highest valued floppy disk state 


322 




»» 



323 

1 


DISK ERROR CODE DEFINITIONS 


324 

l 

INCLUDE 

PEO: DBKERR. EQU 




323 




Iff 



363 




>« 



364 

1 


DIT STRUCTURE DEFINITION 


363 

l 

INCLUDE 

PEO: DBKDIT. EQU 




366 




1# 



381 




t» 



382 

1 


GENERIC 

OPCODE DEFINITIONS 

% 

383 

1 

INCLUDE 

PEO: DBKOP.EQU 




384 




t# 



404 







403 

1 


I/O OPTIMIZATION CONSTANTS 


406 
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-0004 

-0008 


-0000 

-0002 


407 

400 

409 

410 

411 

412 

413 

414 
419 

416 

417 
410 

419 

420 

421 

422 

423 

424 
429 

426 

427 
420 

429 

430 

431 

432 

433 

434 
439 

436 

437 
430 

439 

440 

441 

442 

443 

444 
449 

446 

447 

448 

449 
469 

466 

467 
460 

469 

470 

471 

472 

473 


Tha REPFAC constant is used for ganarating coda in tha loops which transfar 
data to and from tha sactor buffer. "Loop packing" means that tha contents of 
tha loop ara rapaatad so that the loop count mag be reduced. Loop overhead is 
reduced* speeding up tha operation overall. 

Packing factors ara hare axprassad as the number of bits to adjust tha sactor 
sixa C IN WORDS) for use as tha loop counter in tha data transfar loop. 

Tha number of times tha data move operations is rapaatad within tha data 
transfar loop is called tha repeat count. This quantity doubles for each bit 
position tha sactor sixa count is shifted left. Therefore* tha relationship 
is: repeat count - 2 A packing factor. 

NOTE: sector six# is stqred in bytes* but data transfers ara all in words. 
Therefore* all figures ara adjusted to work with word operations. 

The following table shows relative performance of various packing factors. 

Tha single-byte data transfer loop figures are included as tha baseline 
performance reference. 


PACKING 

FACTOR 

DATA 

TRANSFERED 

CLOCK 

CYCLES 

RELATIVE 

TIME 

RELATIVE 

PERFORMANCE 


LOOP 

SIZE 

0. 9 

1 BYTE 

26112 

100. 07. 

1.00 

7 

BYTES 

1 

1 WORD 

11920 

44. IX 

2. 26 

4 

BYTES 

2 

2 WORDS 

9344 

39. 87. 

2.79 

6 

BYTES 

3 

4 WORDS 

8296 

31.67. 

3. 16 

10 

BYTES 

4 

0 WORDS 

7712 

29. 97. 

3. 39 

18 

BYTES 

9 

16 WORDS 

7440 

28. 97. 

3. 91 

34 

BYTES 

6 

32 WORDS 

7304 

27. 87. 

3. 99 

66 

BYTES 

7 

64 WORDS 

7236 

27. 7X 

3.61 

133 

BYTES * 


• - loop must have has different terminating instruction sequence I requires 
a slightly different ini t ial i xat ion lone more register) but does not 
incur any more time overhead in the loop than with the other examples. 


REPFAC EQU 4 I Packing factor 

REPKNT EQU 1 shl (REPFAC-l) I Repeat count 


RIB STRUCTURE DEFINITION 
I NCLUDE PEQ : DSKR I B . EQU 


TIMING EVENT DEFINITIONS 


INCLUDE PEG: TIMEVT.EQU 
TIMINQ EVENT OFFSETS 

EVLNK EQU OOH I Link pointer 

EVTID EQU 02H i Task id 
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-0003 

474 

I EVFLO 

EQU 

03H 

f 

Flags 



-0004 

479 

IEVCTR 

EQU 

04H 

1 

Counter 


-0006 

476 

IEV8UB 

EQU 

06H 

1 

Subroutine address 



477 

» 








470 

i Event 

flaps 







479 

i 







-0004 

4BO 

EVTTYP 

EQU 

4 

1 

Event 

typ. 

0/1 - Interrup t/Tash 

-0009 

401 

EVTACK 

EQU 

9 

l 

Event 

achnowledged 

0/1 - Yes/No 

-0006 

402 

EVTEXP 

EQU 

6 

1 

Event 

esp ired 

0/1 - No/Yes 

-0007 

403 

EVTBTA 

EQU 

7 

I 

Event 

status 

0/1 - Inactive/Active 


404 









409 








-OO0O 

406 

AC TEVT 

EQU 

1 shl 

EVTBTA 


I Mash for 

setting bit to activate evnt 

-OOOC 

407 

1NDXT1 

EQU 

12 



i Index pulse wait interval - 300 msec 

-0014 

400 

MONTIM 

EQU 

20 



i Dish motor-on wait - 1/2 sec 

-0190 

409 

MOFTIM 

EQU 

400 



i Motor-off 

timeout interval - lO sec 


490 









491 

1 



WORKSPACE OFFSETS 



492 








-OOOO 

493 

F LCMD 

EQU 

0 



i For saving last FDC command Issued 

-0001 

494 

F DLAY 

EQU 

1 



i For saving delay mash after seeh 


499 









496 

1 



MACROS 





497 









490 

EVENT 

MACRO 

XEVT. 

XTIM. X WHERE 

i Start an 

event 


499 


IFNB 

i X WHERE > 





900 MOV word ptr XEVT+IEVBUB. offset X WHERE 

901 ENDIF 

902 HOV word ptr XEVT* IEVCTR. XTIM 

903 OR XEVT* 1 EVFLO. AC TEVT 

904 ENDM 

909 i eaeaeeeeeeeeeee #»»»»•••••##»« eeeeeeeeeeeeeeeeeeeeeeseeeeeeeeeeeeeeeeeeeeeee 

^06 KILEVT MACRO XEVT I Cancel an active event 

907 AND XEVT*IEVFLG. not AC TEVT 

900 ENDM 

909 i ees*e*e**eese#eee«eeeee***#*#*#*******#****se*e*e*e*e*e*e*eee*eeeeese*e*eee 

910 l BEGINNING OF THE CODE AREA 

911 i e«e*see*eeeee#e**»*s**ee#*e*s***#*e#e*#s#*«*e##e*eeeeeeeee#*eeeee#eeeeeeeee 

-0000 912 SECT ROMCOD 

913 A6BUME CS: ROMCOD. DB: ROMDAT. EB: NOTHING 

914 BUBTTL Floppy dish GDO routine: FLPDIR 

919 i eesae eeeeeeeeeea »*#**«*#**•«» see es**#*****##e*#se**e#*e*e*eee*eeeeeseeeeeee 

916 i NAME: FLPDIR - Floppy Dish Interface Routine 

917 a ABSTRACT: This Is the call interface to the floppy dish General Dish 

910 i Operation routines. 

919 i INPUTS: • AL - function code (always valid) 

920 i * SB: BP « • the dish driver data area 

* 921 i PROCESSING: * Transfer control to the appropriate Generic Dish Operation 

922 i REGISTERS: AX plus whatever transfered routine uses 

923 i STACK USED: Whatevr the called routine uses tup to about 12 bytes) 

924 i ########### 

929 FLPDIR PROC 


0000 


FAR 
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0000' 

90 

326 



CBN 



i 

Convert generic opcode to word 

0001 ' 

01 CO 

327 



ADD 

AX. AX 


i 

Convert generic opcode to index 

0003 ' 

bb ro 

320 



MOV 

SI. AX 


i 

SI : • jump table index 

0003' 

2EFF A4 OOOA- 

329 



JMP 

CS: CMDTBLCSI 3 

I 

Branch to routine 



330 

1 





see 


OOOA ' 


331 

CMDTBL 

LABEL 

UORD 


i 

Generic disk operations jump table 

OOOA ' 

013B- 

332 



ON 

FLPFI 


i 

Vector: Force interrupt 

OOOC' 

O1E0- 

333 



DU 

FLPASP 


i 

Vector: Auxiliary state processor 

OOOE ' 

0230- 

334 



DU 

FLPEP 


i 

Vector: Error processor 

OOIO' 

0101- 

333 



DU 

FLPIR 


i 

Vector: Initiate read 

0012' 

013C- 

336 



DU 

FLPIS 


i 

Vector: Initiate seek 

0014' 

0130- 

337 



DU 

FLPIU 


i 

Vector: Initiate write 

0016' 

0106- 

330 



DU 

FLPVFC 


i 

Vector: Verify CRC 

0010' 

01 DC- 

339 



DU 

FLPVFD 


i 

Vector: Verify data 

001 A ' 

O10F- 

340 



DU 

FLPRS 


» 

Vector: Read status 

001C' 

029E- 

341 



DU 

FLPBGN 


i 

Vector: Request termination 

001E' 

0207- 

342 



DU 

FLPTER 


i 

Vector: Terminate floppy request 



343 

l 





see 




344 



BUBTTL 

Floppy disk internal ODO routine: CPUnx (MODIFY INTERFACE CTL ) 



343 

I 





see 




346 

» 

NAME: 


CPUxxx 






347 

l 

ABSTRACT: 

Modifies 

the interface 

control bits so that the CPU can talk to 



340 

1 



the Floppy Disk Controller 

(FDC) or the Sector Buffer (BUF). 



349 

1 



- CPUFDC: 

Set CPU ( — > 

FDC 




330 

1 



- CPUBUF: 

Set CPU < — > 

sector buffer 



331 

1 

REGISTERS: 

AX 






332 

1 

STACK 

USED: 

4 bytes 






333 

1 





see 


0020' 


334 

CPUFDC 

PROC 

NEAR 




0020' 

BO 00 

333 



MOV 

AL. ACCFDC 


I 

AH :- bit pattern for CPU ( — > FDC 

0022' 

EB 02 

336 



JMP 

short ptr 

CHGMOD 

i 

Go change interface mode 



337 

i 





see 


0024' 


330 

CPUBUF 

PROC 

NEAR 




0024' 

BO 00 

339 



MOV 

AL. ACCBUF 


f 

AH :« bit pattern for CPU ( — ) BUF 



360 

l 


JMP 

short ptr 

CHGMOD 

i 

Go change interface mode 



361 

i 





see 


0026' 

B4 3F 

362 

CHGMOD: 

MOV 

AH. MMABK 


i 

AH :■ Interface mode bit mask 

0020' 

EB OE 

363 



JMP 

short ptr 

HITC_P 

i 

Go change interface control port 



364 

I 





see 




363 



BUBTTL 

Floppy disk internal GDO routine: FLTIME 



366 






see 




367 

1 

FLTIME i« called by the 

system timing 

event routine (driven by the 



360 

f 

clock) 

when a general floppy timing event (associated with the event 



369 

f 

diti 

structure labeled: 

FL2EVT) expires. 

The two floppy timing events handled 



370 

l 

«r«: 

the wait 

for a motor to come up 

to 

speed fic the wait for an interrupt on 



371 

1 

an index pulsa when processing a timeout 

error. 



372 

l 

PROCESSING: * 

Interrupt 

into the disk 

interrupt service routine 



373 

1 

REGISTERS USED: non# 






374 

i 

STACK 

USED: 6 

bytes 






373 

l 



teeseeeeee 


see 




376 

I FLTIME 

PROC 

NEAR 






377 

i 


INC 

D_BOFT 


i 

Make software interrupt flag non-0 
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002 A' 
002A* 
002D' 
002F # 
0031 ' 
0033 g 
0033' 
0037' 


003B ' 
0030 # 
0039' 
003 A ' 
003E' 


E8 FFF3 
BO DO 
E6 20 
BO OA 
FE CB 
73 FC 
€3 


37B 

379 
3B0 
3BI 

302 

303 
384 
383 

306 

307 

380 
309 

390 

391 

392 

393 

394 
393 

396 

397 
39B 
399 
600 
601 
602 

603 

604 
603 
606 
607 
60B 

609 

610 
611 
612 

613 

614 
613 
616 
617 
61B 

619 

620 
621 
622 
623 


INT 1R61NT I Invoke D9K16R 

RET i Then return 

NOTE: theee timing event* are now vectored directly to the routine 60FINT 
found in the module* DSKIO which doe* exactly what you •** here. 


8UBTTL Floppy disk internal ODO routine: FRCINT 


PUBLIC/ INTERNAL ROUTINE 

NAME: FRCINT - Force interrupt 

ABSTRACT: Clear the floppy di*k controller to an idle condition. 

PROCESSING: * Bend a “force interrupt" with no option* to the FDC 

e Impose a short delay for the command to take affect 
OUTPUT: * Interface mode set to CPU < — ) FDC 

REGISTERS: AX 

STACK USED: 6 byte* 

NOTES: This routine is misnamed because It Is not intended to generate 

an interrupt even though it does use a "force interrupt" com- 
mand. In fact* "force interrupt" with no options does not cause 
the FDC to interrupt. 


FRCINT PROC 
CALL 
MOV 
OUT 
MOV 

1NTDLY: DEC 
JNZ 
RET 

i ee#es*##e*eaee*****s***e**#*****##*#*ee##*»**e* 
BUBTTL Floppy disk internal ODO routine 


NEAR 
CPUFDC 
AL. C_FOR 
FDCCMD. AL 
AL. lO 
AL 

INTDLY 


Bet CPU < — ) FDC 

AL :■ force interrupt command 

Tell FDC to do that 

Delay after forced interrupt 

Does not affect carry 

And return 


HITC P 


NAME: 

ABSTRACT: 

PROCESSING: 


INPUT : 

OUTPUT: 

REGISTERS USED 
STACK USED: 
NOTE: "i 77" 


HITC_P - Change interface control port 

Change floppy disk interface control port to new settings 

• Disable interrupts for exclusive access (required because 
the port is shared - i.e.# some bits are used for other 
hardware than the floppy disk interface) 

• Create new pattern for interface control port using inputs 

• Ouput new pattern to the control port 

• Update RAM copy of the port 

• AL ■» new bit fields for interface control port 

• AH ■ bit mask for masking out fields to be changed 

• CDSKC_M3 ■ Updated control port image 
e Interface control port updated as requested 

AX 
4 bytes 

comment delimiters indicate interrupts may be either on or off 



624 






% 

623 

HITC_P 

PROC 

NEAR 



9C 

626 


PUSHF 


i 77 

Save flags (esp. interrupt flag) 

FA 

627 


CLl 


l l » 

Critical code, disable interrupts 

22 26 OOOA" 

620 


AND 

AH. DSKC M 

l l » 

AH :■ control port less new bits 

OB EO 

629 


OR 

AL. AH 

i i i 

AL :■ updated port image 
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0040' 

A2 

000 A M 

630 


MOV 

DBKC_M# AL ill Update control port Image 

0043 ' 

E6 

OO 

631 


OUT 

DSKC_P# AL ill Hit control port 

0043' 

9D 


632 


POPF 

ill Restore flags (incl. Interrupt) 

0046' 

C3 


633 


RET 

i 7? And return 




634 

1 






633 


BUBTTL 

Floppy disk internal GDO routine: HIT8 P 




636 







637 

i 

NAME: 

HIT8_P - Program select and motor control port 




638 

1 

ABSTRACT: 

Write new pattern to select and motor control port 




639 

1 

PR0CEB8IN0: 

• Output supplied pattern to the select and motor control port 




640 

1 


* Save a copy of that pattern In the memory image copy of port 




641 

I 

INPUT: 

» Al ■ bit pattern for select and motor control control port 




642 

1 

OUTPUT: 

* tDSKC_M3 «* Updated control port Image 




643 

1 


• Interface control port updated as requested 




644 

1 

REGISTERS: 

none 




643 

1 

STACK USED: 

2 bytes 




646 

f 

N0TE8: 

Unlike HITC_P» the select and motor control port Is not shared. 




647 

1 


Therefore* there Is no need to protect accesses to it by dls- 




640 

f 


abling interrupts. 




649 

l 



0047 ' 



630 

HITS P PROC 

NEAR 

0047 ' 

A2 

OOOB" 

631 


MOV 

DBKB_M* AL i Update select port image 

004A ' 

E6 

04 

632 


OUT 

DSKS_P*AL i Hit select port 

004C ' 

C3 


633 


RET 

i And return 




634 

i 






633 


BUBTTL 

Floppy disk internal ODO routlna: HITFDC 1 ISSUE FDC COMMAND! 




636 

i 






637 

i 

NAME: 

HITFDC - Issue FDC (Floppy Disk Controller) command 




630 

I 

ABSTRACT: 

8end a command to the floppy disk controller 




639 

I 

PROCESSING: 

• Output command to FDC command register 




660 

f 


a Store that command as last one Issued 




661 

i 

INPUT: 

* AL ■ FDC command to issue 




662 

I 


* Interface mode MUST BE CPU < — > FDC 




663 

l 

OUTPUT: 

• CD_WKSP+FJLCMD3 (byte) - last FDC command Issued 




664 

f 

REGISTERS: 

none 




663 

« 

BTACK USED: 

2 bytes 




666 

i 



0040' 



667 

HITFDC PROC 

NEAR 

004D ' 

E6 

20 

660 


OUT 

FDCCMD. AL 

004F ' 

A2 

0000" 

669 


MOV 

D_WKSP+F_LCMD. AL 

0032' 

C3 


670 


RET 

~ 




671 

1 






672 


BUBTTL 

Floppy disk internal GDO routine: INITIO 




673 

i 






674 

« 

NAME: 

INITIO - Initiate I/O 




673 

1 

ABSTRACT: 

Performs processing to initiate an I/O operation 




676 

i 

PROCESSING: 

* Select disk drive 



\ 

677 

1 


* Program interface and floppy disk controller for the request- 




670 

i 


ed I/O 




679 

1 

INPUTS: 

* CH » I/O opcode (read or write) to execute 




600 

l 


* CL ® Next state to enter 




601 

l 


* DH = Appropriate interface mode control bits: 
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y disk 

internal ODO routine: 

INITIO 

* FLPDIR. BRC 






6B2 

l 



FDC — > BUF for READ 




6B3 

l 



BUF — ) FDC for WRITE 




684 

I 



• E9: BX - * DIT for 

tbo currant dfl«t drlvo 




6B3 

i 



• CD RE0+CYL1 tbyte) 

>• do* trod cylindor for tbo I/O 




686 

f 



a CD RE0+TRK1 tbyte) 

■ do* trod track for tbo I/O 




687 

l 



# CD REO+BECJ tbyte) 

* do* trod sector for tbo I/O 




68B 

l 

OUTPUT: 

• CD NSTAJ tbyte) - 

Di*k driver'* noit state 




6B9 

1 

REGISTERS: 

AX# BX. CX. DX# 61 





690 

• 

STACK 

USED: 

0 byto* 





691 

l 





0033 ' 



692 

IN1TRD 

PROC 

FAR 

i Special entry for road operation* 

0033 ' 

B3 

62 

693 



MOV 

CH# READ 

I CH :■ Road command with options 

0033 ' 

B6 

40 

694 



MOV 

DH. FDC BUF 

f DH :■ bit pattorn for FDC — ) BUF 

0037 ' 



693 

INITIO: 



i Tbo normal entry point 

0037 # 

E0 

FFCA 

696 



CALL 

CPUBUF 

f Sot interface mode to CPU i — 1 BUF 

003A 9 

E6 

22 

697 



OUT 

RBTBUF# AL 

I Reset sector buffer counter 

003C # 

E0 

0032 

690 



CALL 

SELECT 





699 





l Interface mode is CPU i — ) FDC 

003F ' 

72 

3E 

700 



JB 

INIRET 

i If me must malt for the motor, eilt 

0061 9 

AO 

0000" 

701 



MOV 

AL. D_REQ+CYL 

f AL :■ desired cylinder 

0064' 

E6 

21 

702 



OUT 

FDCTRK. AL 

1 8«t cylinder (FDC "track") 

0066 ' 

263A 47 OA 

703 



CMP 

AL. EB: DITPRCCBX] 

I 0: Cylinder >» pre-comp tbresbold? 

006A ' 

7C 

03 

704 



JL 

NOPRCM 

1 N: Don't set pre-comp bit 

006C ' 

80 

CE 10 

703 



OR 

DH. PRECMP 

i Y: Bet pre-comp bit 

006F ' 

0O 

CE 20 

706 

NOPRCM: 

OR 

DH, BIDE 0 

f Select side 0 

0072' 

AO 

OOOO" 

707 



MOV 

AL. D_REG+TRK 

I AL desired track !"sftde"l 

0073' 

3C 

01 

708 



CMP 

AL. 1 

i Is It track 1 <l.e.» side 11? 

0077' 

73 

06 

709 



JNE 

NOSIDt 

i N: Don't select side 1 

0079' 

00 

E6 OF 

710 



AND 

DH. not SIDE.O 

i Y: Select side 1 

007C ' 

00 

CD OB 

711 



OR 

CH. T2CHK1 

l 6 set cmd to check for side 1 

007 F' 

AO 

OOOO" 

712 

NOBIDl : 

MOV 

AL. D__REO^BEC 

f AL :■ desired sector 

0082 ' 

E6 

22 

713 



OUT 

FDCSEC. AL 

l Set sector 

0084 ' 

BA 

C3 

714 



MOV 

AL. CH 

I AL :■ command to execute 

0086 ' 

OA 

06 OOOO" 

713 



OR 

AL. D_WK8P^F_DLAY 

i Or in delay mask Ilf any) 

OO0A ' 

FA 


716 



CLI 


ill Critical code - mask Interrupts 

OOBB ' 

E0 

FFBF 

717 



CALL 

HITFDC 

ill Tell FDC to execute tbe command 




710 





mi Nom quickly set control port: 

008E ' 

BA 

C6 

719 



MOV 

AL. DH 

ill AL :■ nem bit fields for tbe port 

0090' 

B4 

OF 

720 



MOV 

AH. IO MSK 

ill AH : ■ bit mask for changed fields 

0092 ' 

EB 

FFA3 

721 



CALL 

HITC_P 

ill Update Interface control port 

0093' 

FB 


722 



ST I 


ill End critical code sequence 

0096' 

08 

OE 0003* 

723 



MOV 

D NBTA.CL 

I Set tbe driver's next state 

009A' 

C6 

06 OOOO" 00 

724 



MOV 

D_WKSP^F_DLAY, 0 

i Clear delay mask 

009F ' 

CB 


723 

INIRET: 

RET 


i And return 




726 

i 








727 



BUBTTL 

Floppy disk intornal 

ODO routine: MOTOFF 




728 

t 







V 

729 

l 

PUBLIC ROUTINE 





730 

I 

NAME: 


MOTOFF - Floppy motor off 




731 

I 

ABSTRACT: 

Callod by tho cyttem 

timing event routine Idrlven by tbe timer) 




732 

• 



to turn off running 

drive motors after of period of non-use. 




733 

I 

PROCESSING: 

* Turn off all floppy dlik drlvo motor* and doooloct all drlvo* 
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734 

f 

INPUT 


non* 








730 

1 

OUTPUT: 

non* 




> 




736 

l 

REGISTERS: 

non* 








737 

i 

8TACK 

USED: 

6 by t*i 








73B 






eeee 



OOAO 9 



739 

MOTOFF 

PROC 

NEAR 





OOAO 9 

00 


740 



PU9H 

AX 


i 

Save AX regiiter 


00A1 ' 

BO 

OF 

741 



MOV 

AL# DRVMSK 


« 

AL :■ all motor* off bit pattern 

*> 

00A3 # 

E8 

FFA1 

742 



CALL 

HIT6_P 


i 

Change iclect 1# motor control port 





743+ 



KILEVT 

FL1EVT 


i 

Cancel motor-off event 


OOAB * 

08 


740 



POP 

AX 


i 

Reitore AX 

"\ 

OOAC 9 

C3 


746 



RET 



I 






747 

l 


!«•««»•* 



eaaa 






74B 



SUBTTL 

Floppy disk intarnal 

QDO 

routine: SELECT 





749 

1 





aaaa 



OOAO ' 

3E 


700 

8ELTBL 

DB 

DRIV_0 or MOTR 

0 

i 

Unit number iclect bit table 


OOAE 9 

30 


701 



DB 

DR I V__l or MOTR 

1 



OOAF' 

4B 


702 



DB 

DRIV_2 or MOTR 

_2 




OOBO * 

87 


703 



DB 

DRIVJ3 or MOTR 

_3 







704 

i 





aaaa 


1 




700 

f 

NAME: 


SELECT - 8*1 act disk 

drive 





706 

f 

ABSTRACT: 

Pr*par* floppy 

diek interface for acceiiing a particular drive 





707 

« 

PROCESSING: 

• 6*1 *c t disk 

drive and turn on it* motor 





758 

i 



• If th* motor 

wai not previouily running: 





709 

l 



- Initiate* 

a wait 

for 

the motor to come up to ipeed 





760 

» 



- Set driver 

itate 

to 8 

_WAIT which will caui* the requeit to 

' 




761 

« 



be re-iisued when 

the 

"motor-on wait" timing event expire! 





762 

f 



- Return an 

indication 

that the requeit muit wait 





763 

1 

INPUT: 


* CD_REQ+UNITJ 

(byte) 

* Pegaiue unit number of unit to iclect 





764 

l 



a CH# CL. DH, ES: 

BX - Regiitere which mutt be preserved 





760 

« 

OUTPUT: 

a CH# CL# DH* ES: 

BX - Same ai value on entry 





766 

l 



a CF ■ 0 ■) motor wai 

running# 1 *) motor wai not running 





767 

l 



a If th* motor 

wai not running: 





768 

I 



- CD_NCMD3 - 

OP NUL 

(do 

nothing command) 





769 

I 



- tD_NSTAT - 

B_MOT 

(motor wait) 

\ 




770 

l 



• Interface mod* it i*t to CPU ( — ) FDC 





771 

I 

REGISTERS: 

AX 








772 

i 

STACK 

USED: 

6 byte* 








773 

i 





aaaa 



GOBI ' 



774 

SELECT 

PROC 

NEAR 





GOBI ' 

E8 

FF6C 

770 



CALL 

CPUFDC 


i 

Bet interface mode to CPU < — > FDC 


00B4' 

03 


776 



PUSH 

BX 


I 

Save BX 


OOBO 9 

BA 

IE 0000" 

777 



MOV 

BL. DREQ+UNIT 


f 

BL :■ unit number 

) 

00B9' 

30 

FF 

778 



XOR 

BH* BH 


i 

Convert it to word for uie ai index 

OOBB 9 

AO 

OOOti" 

779 



MOV 

AL. D9K9_M 


i 



OOBE 9 

24 

FO 

7BO 



AND 

AL. not MOTMSK 


i 

Maik out all but the motor data 


OOCO' 

BA 

DO 

781 



MOV 

DL* AL 


i 

DL : ■ image of aelect & motor port 

J 

00C2 9 

2E0A 87 OOAO" 

782 



OR 

AL* GELTBLt BX 1 


f 

AL New iclect and motor biti 


0GC7 9 

EB 

FF7D 

783 



CALL 

HITS P 


i 

Change telect 6 motor control port 


OOCA * 

24 

FO 

784 



AND 

AL# not MOTMSK 


i 

Maik out all but the motor data 

D 

OOCC' 

30 

DO 

780 



XOR 

AL* DL 


i 

Q: Wai the motor already on? 


OOCE' 

74 

16 

786 



JZ 

SELRET 


i 

Y: Then we are ready to go 
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OODO' 

C6 

06 

0009" 

Oi 

707 



MOV 

D__N9TA. B_WAIT I 

N: Neit state :■ general wait 

00D9 ' 

C6 

06 

0004" 

FF 

700 



MOV 

D NCMD, OP_NUL l 

Change nest operation to null 






789+ 



EVENT 

FL2EVT . MONT III • 

Start event for motor-on wait 

OOE9' 

F9 




799 



BTC 

1 

Set CF indicating the wait 

OOE& ' 

9B 




796 

BELRET: 

POP 

BX 1 

Restore BX 

00E7 ' 

C3 




797 



RET 

1 

And return 






790 

« 


teeeeeee 








799 



BUBTTL 

Floppy disk internal ODO routine: VERIFY 






BOO 

1 










001 

1 

NAME: 


VERIFY - Verify data 







eoa 

1 

ABSTRACT: 

Compares data In the lector buffer with memory data 






003 

1 

PROCESS I NO: 

• Compare the user's data 

with the disk data in sector buffeY 






004 

1 

INPUT: 


e CD__R£Q+BUF3 (dword) « segment: of f set for user's buffer 






009 

l 



e E8.BX ■ ft DIT for the current disk drive 






BOA 

9 

OUTPUT: 

* If a verify failure occurs: 






007 

9 



- CD_REQ+6TAT1 Ibyte) - 

"DKVFYE" (Verify error) 






800 

9 



~ (D_REQ+BUFJ i dword 1 - address of WORD which doesn't match 






809 

9 

RE01STER8: 

AX* BXp CX. DXp 81 







010 

9 

STACK 

USED: 

6 bytes 







011 

9 

NOTES: 


Unlike the read and write 

data transfers* VERIFY adoes note use 






oia 

9 



the loop packing method to speed up sector buffer accesses. 






013 

1 



This is for the sake of simplicity. Especially since the CMP9 






014 

9 



(compare stringl instruction cannot be used in the same simple 






019 

9 



manner as STOS or LDOS and* therefore* was not used. 






016 

1 





OOEB ' 





817 

VERIFY 

PROC 

NEAR 


OOE0 ' 

E0 

FF 39 


010 



CALL 

CPUBUF 9 

Set interface mode to CPU ( — ) BUF 

OOEB ' 

E6 

aa 



019 



OUT 

RBTBUF* AL 9 

Reset sector buffer counter 

OOED ' 

3608 4F 04 


B20 



MOV 

CX.E8: DITBECCBX1 9 

CX :* Sector length in bytes 

OOFI ' 

D1 

E9 



021 



SNR 

CX. 1 1 

Adjust for word access to seebuf 

OOFS' 

BA 

ooao 


022 



MOV 

DX.BECBUF 9 

DX :■ Address of sector buffer port 

OOF 6 ' 

IE 




823 



PUSH 

DB 9 

Save current DB 

00F7 ' 

C9 

36 

0000" 


024 



LD8 

SI* dword ptr D_RE(1+BUF 9 

DB: 81 : « • user buffer 






829 




I 


OOFB ' 

ED 




026 

VRLOOP: 

IN 

AX* DX l 

AX :■ 1 word from sector buffer 

OOFC ' 

3B 

04 



027 



CMP 

AX. word ptr DS:CSU 9 

Q: Does the data match? 

OOFE ' 

79 

06 



020 



JNE 

NOJ/FY l 

N: Go fail 

OiOO # 

46 




029 



INC 

SI 9 

Y: Keep checking until done 

0101 ' 

46 




030 



INC 

61 l 


0102' 

E3 

F7 



031 



LOOP 

VRLOOP I 


0104 # 

IF 




032 



POP 

DB I 

Restore D8 

0109 ' 

€3 




833 



RET 

l 

And return 






034 




9 


0106 ' 

IF 




039 

NO VFY: 

POP 

DB i 

Restore DB 

0107' 

09 

36 

0000" 


036 



MOV 

word ptr D REQ+BUF+O* 81 1 


010B' 

06 

06 

0000" 

09 

037 



MOV 

D_REO+BTAT. DKVFYE 1 

Bet status to failure 

OltO' 

03 




030 



RET 

I 

And return 





V 

039 

9 


»•»•»«»« 








840 



BUBTTL 

Floppy disk internal ODO routine: XFRRDD 






041 

I 










04a 

1 

NAME: 


XFRRDD - Transfer read data 






843 

1 

ABSTRACT: 

Called to unload the contents of the sector buffer into memory. 
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Floppy dlih 

Internal ODO routine: 

XFRRDD 

FLPDIR.BRC 





844 

l 

PROCESS I NO: 

• Transfer data from the 

sector buffer to the user's buffer 



843 

9 

INPUT: 

* CD_REG+BUF1 (dword) ■ segment: of fiat for user's buffer 



846 

f 


* ES: BX ■ ® DIT for the current disk drive 



847 

1 

OUTPUT: 

none 




848 

I 

REGISTERS: 

AX# BX. CX# DX, DI 




849 

1 

STACK USED: 

8 bytes 




830 

1 

NOTES: 

This routine employs the 

loop packing technique discussed 



831 

9 


earlier to speed up transferring data from the sector buffer 



832 

1 






833 

1 




0111' 


834 

XFRRDD PROC 

NEAR 


01 1 1 ' 

E8 FF10 

833 


CALL 

CPUBUF 1 

Set interface mode to CPU < — > BUF 

0114' 

E6 22 

836 


OUT 

R9TBUF. AL 1 

Reset sector buffer counter 

01 16 ' 

268B 47 04 

837 


MOV 

AX# ES: DITSECCBX1 9 

AX :■ Sector length in bytes 

OUA' 

Bl 04 

838 


MOV 

CL. REPFAC » 

Adjust for loop packing and word. • . 

OtlC' 

D3 E8 

839 


SHR 

AX. CL 9 

access to the sector buffer 

OilE 1 

BB C8 

B60 


MOV 

CX. AX 9 

CX :■ Repeat count for output loop 

0120 ' 

BA 0020 

861 


MOV 

DX.6ECBUF 9 

DX :■ Address of sector buffer port 

0123 ' 

06 

862 


PUSH 

ES 9 

8ave calling E8 register 

0124 ' 

C4 3E 0000- 

863 


LE8 

DI. dword ptr DJ?EQ+BUF i 

ES: DI : « • user buffer 



864 



9 


0128 ' 

•0008 

863 

RDLOOP: REPT 

REPKNT 9 

Pack the output loop 



866 


IN 

AX# DX 9 

AX :■ 1 word from sector buffer 



867 


BTOB 

word ptr E9:CDI1 9 

Place data in the*user's buffer 



868 


ENDR 

9 

End of repeated section 

0138 ' 

E2 EE 

803 


LOOP 

RDLOOP 9 

Loop until the buffer is read 



886 



9 


013A ' 

07 

887 


POP 

ES 9 


013B ' 

C3 

888 

RETINS: RET 

1 

And return 



889 

f 






890 


SUBTTL 

Floppy disk CDO routine: 

FLPFI 



891 

I 






892 

I 

NAME: 

FLPFI - Force Interrupt 




893 

i 

ABSTRACT: 

Performs the processing needed to cause the disk controller to 



894 

i 


send an interrupt request 

. 



893 

i 

PROCESSING: 

* Bend a "force interrupt 

immediate- to the disk controller 



896 

i 

INPUT: 

none 




897 

< 

OUTPUT: 

* CD_WHSP+F _LCMD1 (by t«> 

"" Last command sent to FDC 



898 

i 

REGISTERS: 

AX 




899 

i 

BTACK USED: 

6 bytes 




900 

i 

N0TE8: 

I found that the "force interrupt- function was not needed for 



901 

i 


driving the floppy disk. 

so this code has been omitted to save 



902 

« 


space in the system ROM. 

which la CRITICALLY abort o# apac*. 



903 

I 


If this function is somehow called inadvertantly# it will 


- 

904 

i 


return immediately. 




903 

i 





-013B 

906 

FLPFI EGU 

RETINS i 

Equate to location of a return 


v 

907 


CALL 

CPUFDC » 

Set interface mode to CPU ( — > FDC 



908 

9 

MOV 

AL. FI I l 

AL :■ Force-interrupt-immediate 



909 

1 

CALL 

HITFDC l 

Hit FDC command register with that 



910 


RET 

9 

And return 



911 

l 
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BUBTTL Floppy disk ODO routine: FLPIB 


NAME: 

ABSTRACT: 


PROCESS I NO: 


INPUT: 
OUTPUT: - 


REGISTERS: 
STACK USED: 


FLPIB - Initiate Seek 

Perform the processing needed to seek a particular cylinder on 
a disk. Also processes the M disk system reset" condition indi- 
cated by the "INVALID" <-11 current position for the disk. 

• Call SELECT to: 

- Select the desired disk drive 

- If the drive motor isn't on: 

■ Turn it on 

* Initiate a wait for it to come up tp speed 
a If the current position is "INVALID"* initiate a recalibrate 
operation before allowing the seek to begin 
a Initiate, a seek to the desired cylinder 
a CD_REG+CYLJ (byte) • desired cylinder for the seek 
a tD_NBTAJ (byte) - Nest state for disk driver (BJJAIT. B__REC 1 , 
or "unchanged" <B_IBEEK)) 

a CD_NKSP+F_LCMD] (byte) - Last command sent to FDC 
a CD_UKBP+F DLAY1 (byte) - 30 msec delay mask for nest 1/0 
AX* BX 
8 bytes 


913 

913 

914 
913 

916 

917 

918 

919 

920 

921 
923 

923 

924 

925 

926 

927 
92B 

929 

930 

931 

932 

933 


013C ' 
013C ' 

EB 

FF73 

934 

933 

013F ' 

72 

18 

936 

937 

0141 ' 

AO 

0000" 

938 

0144' 

3C 

OEa 

939 

0146' 

74 

12 

940 

0148' 

E6 

31 

941 

014A' 

AO 

0000" 

942 

014D' 

E6 

33 

943 

014F ' 

BO 

18 

944 

0131' 

E8 

FEF9 

943 

0134' 

C6 

06 0000" 04 

946 

0139' 

CB 


947 

013A' 

E9 

01 IB 

948 

949 


930 

931 

932 

933 

934 
933 

936 

937 

938 

* 939 

960 

961 

962 

963 


FLPIB 

PROC 

FAR 


CALL 

SELECT 


JB 

IBRET 


MOV 

AL. D REG+CURCYL 


CMP 

AL. INVALID 


JE 

RESET 


OUT 

FDCTRK. AL 


MOV 

AL. D REG+CYL 


OUT 

FDCDAT. AL 


MOV 

AL. BEEK 


CALL 

HITFDC 


MOV 

D WKBP-t-F^DLAY. T2DL30 

IBRET: 

RET 



Select disk 6 insure motor on 
Interface mode is CPU ( — ) FDC 
If the motor wasn't on* wait for it 
AL : « Current cylinder 
Q: Was disk system reset? 

Y: Oo reset 6 recalibrate 
Set track register to that 
AL :■ Desired cylinder 
Select cylinder (FDC "track" ) 

AL :■ Seek command with options 
Hit command port with that 
Set 30 msec delay mask for next I/O 
And return 


RESET: 
i eases 


JMP 


RECAL 


Oo recalibrate 


SUBTTL Floppy disk ODO routine: FLPIM 


NAME: 

ABSTRACT: 

PROCESSING: 

INPUT: 


OUTPUT: 

REGISTERS: 


FLPIM - Initiate Mrite 

Perform the processing needed to write data to the disk 
e Transfer the data to the sector buffer 

a Set parameters and call INITIO to initiate a write operation 
a ES.BX - £ DIT for the current disk drive 
a CD_REG+BUFJ (dword) ■ segment : of feet for user's buffer 
a CD__REG+CYLJ (byte) - desired cylinder for the I/O 
a CD_RE(1+TRK3 (byte) - desired track for the I/O 
a CD_REG+6EC1 (byte) ■ desired sector for the I/O 
a CD_NSTAJ (byte) « nest state for driver (SJMAIT or B__DONE ) 
AX. BX* CX* DX. SI 
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Floppy disk 000 routine: FLPIM FLPDIR. SRC 




964 

1 

STACK USED: 

10 bytes 




969 

l 

NOTES: 

This routina employs the loop packing discussed earlier to 



966 

l 


speed up transferring data 

between memory 6 the sector buffer. 



967 

1 


«*«*•*«*******« ************* 


oiao # 


968 

FLPIW PROC 

FAR 


0190 ' 

EB FEC4 

969 


CALL 

CPUBUF 1 

S,t lnt.rf.c. mod. to CPU < — > BUF 

0160 ' 

E6 22 

970 


OUT 

RSTBUF, AL I 

Reset sector buffer counter 

0162 ' 

268B 47 04 

971 


NOV 

AX, ES: DITSECCBXJ i 

AX :- Sector length in bytes 

0166 ' 

B1 04 

972 


MOV 

CL, REPFAC I 

Adjust for loop packing and word... 

0168 ' 

03 E8 

973 


SHR 

AX, CL 1 

access to the sector buffer 

016A ' 

BB C8 

974 


MOV 

CX.AX l 

CX :- Repeat count for output loop 

016C ' 

BA 0020 

979 


MOV 

DX, SECBUF 1 

DX :- Address of sector buffer port 

016F ' 

IE 

976 


PUSH 

DS l 

Save current data segment register 

0170 ' 

C9 36 OOOO" 

977 


LD8 

81, dword ptr D_REQ+BUF i 

DS: 81 :- t user buffer 



978 



i 


0174 ' 

-0008 

979 

IWLOOP: REPT 

REPKNT i 

Pack the output loop 



980 


L0D3 

word ptr DS: CSI I i 

AX :« Word from user's buffer 



901 


OUT 

DX, AX I 

Output that word to sector buffer 



982 


ENDR 

i 

End of repeated section 

0184 ' 

E2 EE 

999 


LOOP 

IWLOOP i 

Loop until the buffer Is written 



1000 



i 


0186 ' 

IF 

1001 


POP 

DS I 

Restore data segment register 



1002 



l 




1003 

i 

MOV 

CH. WRITE i 

CH Write command with options 



1004 

I 

MOV 

CL. B DONE 1 

CL next state (done) 

0187 ' 

B9 A203 

1009 


MOV 

CX.8 DONE or (WRITE ahl 8) 

(This replaces the above 2 instr's 

018A ' 

B6 CO 

1006 


MOV 

DH. BUFFDC J 

DH :- bit pattern for BUF — > FDC 



1007 

i 

CALL 

INITIO l 

Initiate the requested I/O 



1008 

i 

RET 

* 

And return 

01BC ' 

E9 FEC8 

1009 


JMP 

•hort INITIO i 

This replaces the above 2 instr's 



ioio 

« 






1011 


BUBTTL 

Floppy disk GDO routine: FLPRS 



1012 

f 






1013 

i 

NAME: 

FLPRS - Read Status 




1014 

i 

ABSTRACT: 

Read the floppy disk controller status and interpret it Into a 



1019 

i 


standard (IBM defined) error coda. 



1016 

i 

PROCESSING: 

* Read the FDC status 




1017 

f 


« Synthesize and return a standard (i.e. IBM) error code 



1018 

« 

INPUT: 

* ID_WKSP+F_LCMD3 (byte) - 

Last command sent to FDC 



1019 

i 

OUTPUT: 

« CD_REQ+STATJ (byte) status coda (unchanged if no error) 



1020 

« 

REGISTERS: 

AX 




1021 

i 

STACK USED: 

6 bytes 




1022 

i 

NOTES: 

« Status on type 1 commands 

Is not checked. We don't expect any 


• 

1023 

i 


meaningful status from them as no verify options are ever set 



1024 

i 


for any type 1 command (restore, seek, step). 



1029 

i 


* The code for checking to 

see if a force Interrupt command was 



1026 

i 


issued has been commented 

out because this code never issues 


\ 

1027 

i 


a force interrupt command 

which will actually cause an inter- 



1028 

i 


rupt (see FRCINT elsewhere in this module). 



1029 

i 

******************* ********** ************************************************* 

018F ' 


1030 

FLPRS PROC 

FAR 


018F ' 

E8 FEBE 

1031 


CALL 

CPUFDC i 

Bet CPU <--> FDC 
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0192 ' 

E4 

20 


1032 



IN 

AL. FDC ST A 

1 

AL :■ FDC current status 

0194' 

BA 

EO 


1033 



MOV 

AH. AL 

1 

Save status in AH 

01?&' 

AO 

0000 - 

1034 



MOV 

AL, D_WKSP+F _LCMD 

1 

AL :■ Last FDC command issued 

0199' 

C6 

06 

0000 M 00 

1039 



MOV 

D WKSP+FJ-CMD# 0 

1 

Null out last command 

019E ' 

B4 

CO 


1036 



TEST 

AL. AL 

1 

Q: Is it a null command? 

01 AO ' 

74 

2E 


1037 



JZ 

RI8RET 

1 

Y: Don't do anything else 





1038 

l 


CMP 

AL. C_FOR 

1 

Q: Is it a force interrupt? 





1039 

1 


JZ 

R I BRET 

1 

Y: Don't do anything else 

01 A2' 

AB 

BO 


1040 



TEST 

AL. 10000000B 

1 

Q: Is It a type 1 opcode? 

01 A4' 

74 

2A 


1041 



JZ 

RISRET 

1 

Y: Don't do anything else 

01 A6 ' 

24 

EO 


1042 



AND 

AL. 1 1 100000B 

1 

Mask down to bits which distinguish 





1043 





1 

type 2 6 type 3 commands 

01 AB ' 

3C 

AO 


1044 



CMP 

AL. C WRS 

I 

0: Was command a write sector? 

01 AA' 

BA 

C4 


1049 



MOV 

AL. AH 

1 

AL : ■ status 

01 AC ' 

79 

OC 


1046 



JNE 

T2READ 

1 

N: Go check bits for read 





1047 





1 

Y: Check all type 2 L 3 bits 

OiAE ' 

B4 

03 


1048 



MOV 

AH. DKWPRT 

I 

AH :■ Write protect error code 

01 BO ' 

AB 

40 


1049 



TEST 

AL. h_WPR 

1 

Q: Is write protect bit set? 

01B2 ' 

79 

18 


1090 



JNZ 

R I BOON 

1 

Y: Return write protect error 

01B4 ' 

B4 

20 


1091 



MOV 

AH. DKFAIL 

1 

AH :■ Hardware failure error code 

01B6 ' 

AB 

20 


1092 



TEST 

AL. M_FAU 

1 

Q: I« writ, fault bit *.t? 

01BB ' 

79 

12 


1093 



JNZ 

RI6D0N 

I 

Y: Return hardware failure error 

01 BA ' 

B4 

OB 


1094 

T2READ: 

MOV 

AH, DKDMAE 

1 

AH :■ Data request errpr 

01 BC ' 

AB 

04 


1099 



TEST 

AL. MJLOS 

1 

G: Is lost data bit set? 

01BE ' 

79 

OC 


1096 



JNZ 

RISDON 

1 

Y: Return data request error 

01C0' 

B4 

io 


1097 



MOV 

AH. DKCRCE 

1 

AH :■ CRC error code 

01C2 ' 

AB 

OB 


109B 



TEST 

AL. M_CRC 

1 

Q; Is CRC error bit set? 

01C4 ' 

79 

06 


1099 



JNZ 

RISDON 

1 

Y: Return CRC error 

01C6 ' 

B4 

04 


1060 



MOV 

AH. DKRNFE 

I 

AH :■ Record not found error 

01CB ' 

AB 

10 


1061 



TEST 

AL. M RNF 

1 

G: Is record not found bit set? 

01C A ' 

74 

04 


1062 



JZ 

RISRET 

1 

N: Then return no error 

01CC' 

BB 

26 

oooo- 

1063 

R I BOON: 

MOV 

D_REG+BTAT. AH 

1 

Y: Return record not found error 

01 DO ' 

CB 



1064 

R I BRET : 

RET 


1 

And return 





1069 

i 


»••«««•* 


«•**« 






1066 



BUBTTL 

Floppy disk GDO routine: 

FLPIR 





1067 

I 










1068 

I 

NAME: 


FLPIR - Initiate Read 






1069 

i 

ABSTRACT: 

Perform the proceseing needed to read data from diek 





1070 

I 

PROCESSING: 

* Set parameters and 

call 

INITIO to initiate a read operation 





1071 

« 

INPUT: 


* EB: BX - « DIT for 

the current disk drive 





1072 

• 



« CD REG+CYL3 (byte) 

■ desired cylinder for the I/O 





1073 

l 



* CD__REG+TRK3 (byte) 

■ desired track for the I/O 





1074 

I 



« CD__REG+6EC 3 (byte) 

<■ desired sector for the I/O 





1079 

l 

OUTPUT: 

# CD NSTA3 (byte) - 

Next 

state for driver (SJ-IAIT or B_FR X ) 





1076 

I 

REGISTERS: 

AX. BX. DX 







1077 

i 

STACK 

USED: 

10 bytes 







1078 

i 


»««««*«« 




01D1 ' 



% 

1079 

FLPIR 

PROC 

FAR 







10B0 

i 


MOV 

CH. READ 

I 

CH :■ Read command with options 

01D1 ' 

B1 

04 


1081 



MOV 

CL. 8 FRX 

i 

CL :■ next state (floppy read xfer) 





1082 

i 


MOV 

DH. FDCBUF 

I 

DH :- bit pattern for FDC -- 1 BUF 





10B3 

i 


CALL 

INITIO 

i 

Initiate the requested I/O 
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01D3' 


01D6 9 
01D6 * 

01DA' 


01DC 9 
01DC 9 

01DE 9 


E9 FE7D 


8A OF 0003" 
EB F7 


1084 

1083 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 
1093 

1096 

1097 

1098 

1099 
UOO 
1101 
1102 

1103 

1104 
1103 
1106 
1107 
HOB 

1109 

1110 
1111 
1112 

1113 

1114 
1113 
1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 
1123 


JNITRD: JMP 


RET 


near INITRD 


FLPVFC 


» Thii jump accomp 1 ietiee everything 
i which ie commented out here 

i Return 


6UBTTL Floppy diik ODO routine: FLPVFC 


NAME: 

ABSTRACT: 

PROCESSING: 

INPUT: 


OUTPUT: 
REGISTERS: 
STACK USED: 


FLPVFC - VeriFy Crc 

Perform the necessary processing to verify a sector CRC 

* Set parameters and call INITIO to initiate the reading of the 
data (during which the controller will check the CRC). 

* ES: BX « 9 DIT for the current disk drive 

* [D_REQ+CYL3 (byte) - desired cylinder for the I/O 

* CD_REQ+TRK3 (byte) - desired track for the I/O 

* CD_REQ+SEC 3 (byte) - desired sector for the I/O 

* tD_NSTA3 (byte) « Next state for driver (S_WAIT or B_DONE) 

AX. BX. DX. SI 

10 bytes 


PROC 

MOV 

MOV 

MOV 

CALL 

JMP 

RET 


FAR 

CH. READ 
CL. DJMSTA 
DH, FDCBUF 
INITIO 

short JNITRD 


CH : ■ Read command with options 
CL : - next state 

DH :■ bit pattern for FDC — ) BUF 
Initiate the requested I/O 
This jump accomplishes everything 
which Is commented out here 
Return 


SUBTTL Floppy disk GDO routine: FLPVFD 


NAME: 

ABSTRACT: 

PROCESSING: 

INPUT: 


FLPVFD - VeriFy Data 

Perform the processing needed to compare data in memory with 
data on disk. 

* Set parameters 6 call INITIO to initltate the read li verify 
of the data 

* ES: BX “ « DIT for the current disk drive 

« tD_REQ+CYL3 (byte) « desired cylinder for the I/O 

* CD_REQ+TRK3 (byte) - desired track for the I/O 
« CD_REQ+6EC3 (byte) « desired sector for the I/O 

OUTPUT: * CDJMSTA3 (byte) « next state for driver (SJWAIT or 8_VFD) 

REGISTERS: AX. DX. 81 

STACK USED: 10 bytes 

#**»#«»*«*««««#»*«*»********«***•«*»*«*•«****«»*«**»**«»«*«***«*****«*•«•**«#» 




1126 

FLPVFD 

PROC 

FAR 




1127 

« 

MOV 

CH. READ 

i CH : a Read command with options 

B 1 

03 

1128 


MOV 

CL. S_VFD 

i CL : • next state (verify data) 



1129 

1 

MOV 

DH. FDCBUF 

i DH bit pattern for FDC -- > BUF 



1130 

i 

CALL 

INITIO 

i Initiate the requested I/O 

EB 

F3 * 

1131 


JMP 

short JNITRD 

i This jump accomplishes everything 



1132 




i which Is commented out here 



1133 

l 

RET 


i Return 



1134 

I ****************************************************************************** 



1133 


SUBTTL 

Floppy disk GDO routine: 

FLPASP 



FLPDIR CRB086/1 1 vartion 10.34.17 3-Aug-83 16:39:29 Pag* 1-16 

Floppy dial OOO routlna: FLPASP FLPDIR. SRC 




1136 

l 







1137 

l NAME: 


FLPASP - Auxiliary 

Btate Processor 



1138 

i ABSTRACT: 

Procen disk driver 

states 

specific to the floppy disk inter- 



1139 

i 


face. Thie routine 

Is an extension of the general disk inter- 



1140 

I 


rupt level code which processes the generic driver states. 



1141 

i INPUT: 


« ES: BX » 8 DIT for 

current 

disk drive 



1142 

i 


e CD_BTAT3 (byte) - 

Current 

state of the disk driver 



1143 

I PROCESS I NO: 

« Process disk driver states specific to the floppy disks 



1144 

l NOTE: 


Hits the floppy disk controller port directly rather than 



1149 

i 


through the Qeneral 

Disk Operations -next command- Interface. 



1146 






01E0 * 

01FC- 

1147 

ABPJMP 

DM 

L FRX 

I 

VECTOR: Floppy read transfer 

oiE2' 

0209 H 

1148 


DM 

l_vfd 

f 

VECTOR: Verify data 

01E4 * 

0210- 

1149 


DM 

L_REC1 

i 


01E6 9 

0230- 

1190 


DM 

L_RDA 

i 

VECTOR: Process read address 

OiEB * 


1191 

FLPASP 

PROC 

FAR 



01E8 ' 

AO 0008" 

1192 


NOV 

AL. D BTAT 

« 

AL :■ current state of driver 

OIEB 9 

2C 04 

1193 


SUB 

AL. B_HAX+1 

I 

Adjust for fixed states 

01 ED 9 

98 

1194 


CBM 


l 

Convert to a word value 

OiEE 9 

01 CO 

1199 


ADD 

AX. AX 

i 

Convert to a jump table index 



1196 

I 

CMP 

D 8TAT. 8 FNAX 

I 

G: Is current state a valid state? 



1197 

f 

JLE 

ASPSEL 

l 

Y: Go process the state 



1198 

l 

INT 

FATINT 

I 

N: Fatal error 

01F0 9 

8B F8 

1199 

ASP BEL: 

NOV 

DI. AX 

i 

DI :■ jump table Index 

01F2 ' 

AO 0000- 

1160 


NOV 

AL. D REQ+BTAT 

i 

AL :■ Status code 

01F9 9 

3C 00 

1161 


CNP 

AL. DKNORN 

i 

G: Did an error occur? 

01F7 9 

2EFF A9 OIEO- 

1162 


JHP 

ASP JHP ton 

1 

Branch to state handler routine 



1163 




i 

FRX - Floppy read transfer 

OIFC 9 

9C 

1164 

L_FRX: 

PUBHF 


l 

Save comparison status 

OiFD 9 

EB FFil 

1169 


CALL 

XFRRDD 

l 

Transfer the read data 

0200 ' 

9D 

1166 


POPF 


« 

Restore comparison status 



1167 

i 

CNP 

AL. DKNORM 

I 

0: Did an error occur? 

0201' 

79 9A 

1168 


JNE 

FLPEP 

i 

Y: Go do something about it 

0203 ' 

EB 09 

1169 


JNP 

short ptr FINISH 

I 

N: Then wp're done 



1170 




» 

VFD - Verify data 



1171 

I 

CNP 

AL. DKNORN 

i 

G: Did an error occur? 

0209 ' 

79 96 

1172 

L_VFD: 

JNE 

FLPEP 

1 

Y: Go do something about It 

0207 ' 

EB FEDE 

1173 


CALL 

VERIFY 

I 

N: Verify the data 

020A # 

C6 06 0009“ 00 

1174 

FINISH: 

NOV 

D_NBTA. BRIDLE 

I 

Finished. Bet next state to -idle- 

020F ' 

CB 

1179 


RET 


» 

And return 



1176 




9 

REC1 - Error recovery, stepin 

0210 ' 

BA 0101 

1177 

L_REC1: 

NOV 

DX.REBTOR or ( B_MA I T shl 8) 

icmd: restore, state: retry wait 

0213 ' 

C6 06 0000- 00 

1178 


NOV 

D_REG+CURCYL> 0 

1 

Bet current cylinder position to 0 

0218 ' 

C6 06 0000- 00 

1179 

00_FDC : 

NOV 

D_REQ+8TAT. DKNORN 

« 

Reset operation status 

021 D ' 

E8 FEOO 

1180 


CALL 

CPUFDC 

1 

Bet CPU ( — > FDC 

0220 ' 

BA C2 

1181 


NOV 

AL. DL 

1 

Put command in AL 

0222 ' 

EB FE28 

1182 


CALL 

HITFDC 

1 

Issue command to FDC 

0229 ' 

B8 3F40 v 

1183 


NOV 

AX.FDCBUF or (NMASK 

shl B)i 

AL :- code for FDC — ) BUF 



1184 




i 

AH :* Interface mode bit mask 

0228 ' 

E8 FEOD 

1189 


CALL 

HITC_P 

i 

Bet FDC — > BUF 

022B ' 

88 36 0009- 

1186 


NOV 

D__N8TA» DH 

i 

Store next state 

022F ' 

CB 

1187 


RET 


f 

And return 
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Floppy disk ODD routine: FLPABP FLPDIR. SRC 

i RDA - Process Read Address 
i DL : - Disk format error code 
i Q: Did an error occur? 
i N: Go interpret address data 

i <3: Idas record not found? 
i Y: Bet disk format error 

i Q: Was there a CRC error? 

I N: Go attempt error recovery 

i Y: Accept CRC error 

i Bet CPU < — > BUF 

i Reset sector buffer 

i AL : ■> cur cyli AH :■ cur trk 

i DL : » Disk format error code 

i Q: Are tee on the right trk (side)? 
f N: Bet disk format error 

I DL : ■ Seek error code 

i Q: Are tee on the right cylinder? 

I N: Bet seek error 

i Y: Set record not found error 

i Store error code as status 

« Also store as the retry status 

i Note try to recover from the error 






1210 

l 


»*« 






1211 


BUBTTL 

Floppy disk GDO routine: FLPEP 





1212 

1 


»»« 






1213 

1 

NAME: 

FLPEP - Error Processor 





1214 

1 

ABSTRACT: 

Process floppy disk errors 





1213 

1 

INPUT: 

* 

EB: BX - 8 DIT for current disk drive 





1216 

l 


« 

CD_RE0+STAT1 * (byte) - error status of operation 





1217 

1 

PROCESSING: 

« 

If the error was a timeout* just return a timeout error 





1218 

1 


« 

If the error was a record not found: 





1219 

1 



- Execute read address command 





1220 

1 



Process results of that (see FLPASP under LJRDA: ) 





1221 

1 



- Then come back and attempt error recovery: 





1222 

l 


* 

Try to recover from other errors: 





1223 

« 



- Increment errors counter 





1224 

« 



- Give up if we have retried enough times 





1223 

1 



- Step read/urite head in 





1226 

i 



- Restore drive to track 0 





1227 

1 



- Re-issue request 





1228 

l 

OUTPUT: 

a 

tDJEKNTil (byte) « incremented count of times an error has 





1229 

1 



occurred during the current request 





1230 

1 


« 

CD_NSTA3 * next state for disk driver to enter 





1231 

i 

REGISTERS: 







1232 

1 

STACK USED: 

8 

bytes 





1233 

l 

NOTES: 

* 

Hits the floppy disk controller port directly rather than 





1234 

1 



through the General Disk Operations interface. 




\ 

1233 

l 


023D ' 




1236 

FLPEP PROC 

FAR 

023D' 

AO 

OOOO" 


1237 

ERRORP: MOV 

AL# D_REQ+8TAT i AL : - error code 

0360 ' 

A3 

0000" 


1238 


MOV 

D 

REG+RSTAT, AL l Copy to retry status 

0263' 

3C 

04 


1239 


CMP 

AL. DKRNFE i Q: Mat it record not found? 


0230' 

B2 

02 

1189 

L_RDA: 

MOV 

DL# DKFMTE 




1190 

l 

CMP 

AL. DKNORM 

0232' 

74 

08 

1191 


JE 

CHKADR 

0234' 

3C 

04 

1192 


CMP 

AL. DKRNFE 

0236' 

74 

IB 

1193 


JE 

9T0RER 

0238' 

3C 

10 

1194 


CMP 

AL# DKCRCE 

023A ' 

73 

2F 

1193 


JNE 

RECOVR 




1196 




023C ' 

E8 

FDE3 

1197 

CHKADR : 

CALL 

CPUBUF 

023F ' 

E6 

22 

1198 


OUT 

RBTBUF.al 

0241' 

E3 

20 

1199 


IN 

AX, SEC BUF 




1200 

l 

MOV 

DL. DKFMTE 

0243' 

3A 

26 0000" 

1201 


CMP 

AH# D REQ+TRK 

0247' 

73 

OA 

1202 


JNE 

BTORER 

0249' 

B2 

40 

1203 


MOV 

DL, DKSEEK 

024B ' 

3A 

06* 0000" 

1204 


CMP 

AL, D REG+CYL 

024F ' 

73 

02 

1203 


JNE 

BTORER 

0231' 

B2 

04 

1206 


MOV 

DL. DKRNFE 

0233' 

88 

16 0000" 

1207 

8T0RER : 

MOV 

D REG+STAT, DL 

0237 ' 

88 

16 000 0" 

1208 


MOV 

D_REG+RSTAT , DL 

029B ' 

EB 

OE 

1209 


JMP 

short RECOVR 
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0263 * 

74 

16 

1240 



JE 

CHKRNF 

i 

i Y: Go pin tha arror down battar 1 

0267 ' 

3C 

00 

1241 



CMP 

AL. DKNRDY 

i Q: Has tha arror a timaout? ^ 

0269 ' 

74 

9F 

1242 



JE 

FINISH 

i Y: Raturn tha timaout arror . 




1243 





i N: At tamp t arror racovary : 

026B ' 

FE 

06 0003 H 

1244 

RECOVR: 

INC 

D_EKNT 

i Incramant arror countar 

026F 9 

AO 

0003" 

1243 



MOV 

AL, D_EKNT 

i AL : ■■ nau arror count 

0272 ' 

263A 47 09 

1246 



CMP 

AL. ES: DITERRCBX J 

l G: Hava ua atcaadad arror limit? 

0276 9 

7F 

92 

1247 



JG 

FINISH 

I Y: Giva up racovary attampt 

0270 9 

BA 

0640 

1248 

REGAL: 

MOV 

DX, STEP IN or <S_RECl 

thl 0) i N: Tell FDC: 6t.p-ln 




1249 





I Nait stata ;■ racovary stata 

027B 9 

EB 

9B 

1230 

1231 

i 


JMP 

short ptr GO_FDC 

i Go tall FDC to do it 

027D # 

E8 

FDA4 

1232 

CHKRNF: 

CALL 

CPUBUF 

i Bat CPU ( — > BUF j 

0200 9 

E6 

22 

1233 



OUT 

RBTBUF* AL 

i Rasat sactor buffar I 

0202 9 

BA 

07C0 

1234 



MOV 





1233 





l Naxt stata :■ procass raad addrass 

0203 9 

EB 

91 

1236 

1237 

l 


JMP 

short ptr GO__FDC 

i Go tall FDC to do that 




1230 



BUBTTL 

Floppy disk GDO routina: FLPTER 




1239 

1260 

l 

NAME: 


FLPTER - TERmi nation 

processing 




1261 

f 

ABSTRACT: 

Parform davics-spac if ic tarminat ion procassing for raquast 




1262 

1 

PROCESS I NO: 

* Insura that FDC is 

idle 1 




1263 

1 



» Dasalact ail drivas 

so that all driva select lights are off 




1264 

l 



a Btart tha motor-off 

timaout avant which will turn off tha 




1263 

1 



driva motors if nothing also it dona until much latar. 




1266 

l 

REGISTERS: 

AX 

\ j 




1267 

1260 

1 

l 

STACK 

USED: 

»««»•««» 

6 bytas 

.... ........... I 

0207' 



1269 

FLPTER 

PROC 

FAR 

; 

0207' 

EB 

FDAO 

1270 



CALL 

FRCINT 

I Terminate FDC 




1271 + 



EVENT 

FLIEVT. MDFTIM 

« Start motor-off timaout avant 

0293' 

AO 

OOOB" 

1277 



MOV 

AL. DBK9_M 

i AL : • Image of motor/select port 

0290 ' 

OC 

OF 

1270 



OR 

AL. DRVMBK 

i Or in dasalact all drivas mask j 

029A ' 

EB 

FDA A 

1279 



CALL 

HITS P 

i Hit motor/select port with that j 

029D ' 

CB 


12B0 

1201 

« 


RET 






1202 



BUBTTL 

Floppy disk GDO routina: FLPBGN 




1203 

i 








1204 

« 

NAME: 


FLPBGN - BeQiN procassing raquast I 




1203 

» 

ABSTRACT: 

Parforms any initial 

processing for a disk I/O raquast 




1206 

• 

PROCESSING: 

• Cancal tha motor-off timaout avant 1 




1207 

l 

REGISTERS: 

nona 

i 




1200 

I 

STACK 

USED: 

4 bytas 





1209 



*#»•«*»« 



029E ' 



1290 

FLPBON 

PROC 

FAR 





1291 + 



KILEVT 

FLIEVT 

f Cancal motor-off avant 

02A3 ' 

CB 

% 

1293 



RET 


i 


1294 l 

1293 BUBTTL 

1296 END 


No irrors detected 
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-GOOD 

-OOOA 


-0000 


TITLE - HEADER - THIS MODULE MUST BE THE PIR8T IN ROM. 

COMPUTER - BOBS ASSEMBLY LANGUAGE 

ABSTRACT - This module contains the System ROM header Information. It 
must be the first module linked* so that It is at offset 0000 
relative to the beginning of the ROM. Each ROM in the system 
must contain a header with this structure: 


9 

l 


DW 

X X X X 

I 

81 ze of the ROM (OFFFFH for System) 

10 

l 


DM 

X X X X 

i 

Entry point of the ROM 

11 

i 


DB 

X X 

l 


12 

l 


DB 

CR.LF 

l 

First characters of message 

13 

i 


DB 

'Vx. xx ' 

i 

O-byte ROM version in ASCII 

14 

l 


DB 

X X* X X* . . . 

I 

Remainder of ID message 

10 

i 





16 

i 

REGISTERS USED - NONE 




17 

i 






IS 

l 

STACK USED - 

NONE 




19 

i 






20 

1 \ 




»»*** 


21 


NAME 

HEADER 




22 


BUBTTL 

SYSTEM 

ROM HEADER 




PUBLIC DEFINITIONS 


PUBLIC ROMVER 


EXTERNAL REFERENCES 


EXTERN PUPT8T : NEAR i ENTRY POINT OF ROM 

EXTERN ROMS I Z : ABS I ROM SIZE 

•«*»«**»*««»»»***«**«*»«**»*#*****»»**»««****»»***•»*»#««»***»***»«*«»*«*«*•** 

LOCAL CONSTANTS 


MODULE ENTRY POINT 


SECT 

ASSUME 


ROMCOD 
CS: ROMCOD 


FFFF 

OOOl" 

3A v 

OD OA 

06 31 2E 32 33 
20 03 09 03 02 4F 
4D 20 28 63 29 20 


ROMMSG 

ROMVER 


OFFFFH i Site of this ROM (Special for system) 

OFFSET PUPTST I Entry point of this ROM 

OFFSET MSGS1Z I Size of the sign on message 

CR*LF 

'VI. 23' i Version of the ROM 

' 8YSR0M (c) Copyright Tezas Instruments Inc. 1983' 


HEADER CR8O06/ I I version 10.34.17 
SYSTEM ROM HEADER HEADER. SRC 


3~Atig~83 16:40:3 
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0018 ' 43 6F 70 79 73 69 
001E 9 67 6B 74 30 34 63 
0024 ' 70 61 73 20 49 6E 
002A 9 73 74 73 73 6D 63 
0030 ' 6E 74 73 20 49 6E 
0036 ' 63 2E 20 31 39 3S 
003C ' 33 


003D ' OD OA 

33 

DB 

CR# LF 

-003A 

34 

M6081Z EQU 

4-ROMMSG 


33 

f 



36 

END 



No errors detected 
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Page I 


-0000 


-0000 


v 


1 i »*»*»»*««**»»»»*»***»»*»«*»*«*##**»»»*«*#»»««»»»*«»»**«»•*»»»»»»»»»«#***««•»* 

3 i 

3 i TITLE - INTTST - Interrupt controller power up d iegnoet Ice. 

4 l COMPUTER - SOBS ASSEMBLY LANGUAGE 

9 i ABSTRACT - This module contain* the power up diagnostic* that teat the 

6 i interrupt controller in the PEGASUS main board. Only those interrupts 

7 i that are generated by basic system components are tested. 

8 I ***************************************************************************** 

9 NAME INTTST — PEGASUS power up interrupt controller test 


10 

1 

SUBTTL 




12 

1 





13 

1 


EXTERNAL PROCEDURAL REFERENCES 


14 

1 





19 

f 





16 


SECT 

ROMDAT 



17 


ASSUME 

C8: ROMCOD 



18 

1 





19 


EXTERN 

DBKC_M: BYTE 

I DISK SELECT LATCH MEMORY IMAGE. 

i ROMDAT ) 

20 


EXTERN 

PRCO_M: BYTE 

I PRINTER OUTPUT LATCH MEMORY IMAGE. 

< ROMDAT > 

21 

I 





22 

1 


EXTERNAL DATA REFERENCES 


23 

1 





24 

1 





29 


SECT 

ROMCOD 



26 

1 





27 


EXTERN 

DSPDIE: NEAR 

i DISPLAY FATAL ERROR and DIE. 

< OUTPUT ) 

28 


EXTERN 

FILVEC : NEAR 

i ENTRY TO VECTOR INITIALIZATION. 

(VECINI) 

29 


EXTERN 

DECLED: NEAR 

I DECREMENT LED SUBROUTINE. 

(DECLED) 

30 


EXTERN 

KEYRST : NEAR 

1 KEYBOARD INTERRUPT RESET. 

(KEYDSR) 

31 


EXTERN 

FRCINT : NEAR 

1 FLOPPY CONTROLLER RESET. 

( DSKDSR ) 

32 


EXTERN 

TIMTBT : NEAR 

1 TIMER DIAGNOSTICS ERROR. 

(TIMTST) 

33 


EXTERN 

ICNERR: AB8 

l INTERRUPT CONTROLLER ERROR CODE. 

(TBTERR ) 

34 


EXTERN 

IVIERR: AB8 

1 INVALID INTERRUPT ERROR. 

(TSTERR ) 

39 


EXTERN 

LED 100: ABS 

1 INTERRUPT LED ERROR PATTERN 

(ROMERR) 

36 


EXTERN 

NMIERR: ABB 

l NMI INTERRUPT FAILURE CODE. 

( TBTERR ) 

37 


EXTERN 

TIMERR: ABS 

1 TIMER INT FAILURE CODE. 

(TBTERR) 

38 


EXTERN 

KEYERR: ABS 

I KEYBOARD INT FAILURE CODE. 

(TBTERR) 

39 


EXTERN 

FL I ERR: ABS 

I FLOPPY INT FAILURE CODE. 

(TSTERR) 

40 

l 




>»****»*« 

41 

f 


PUBLIC 

DEFINITIONS 


42 

1 




**««»»»*» 

43 


PUBLIC 

INTTST 

i ENTRY TO INTERRUPT CONTROLLER DIAGNOSTICS. 

44 


PUBLIC 

PRTRST 

1 PRINTER AND PARITY INTERRUPT DISABLE 

SUBR. 

49 

l 





46 

1 


LOCAL 

CONSTANTS 


47 

f 

INCLUDE 

PEG: HARDWARE. 

EQU 


48 

1 

INCLUDE 

PEG: VECTOR. EQU 


49 

1 **##*#*****#**#**#**« ###****# *#**#***##*#**#***#**#*#**##**##*#*#***» ********* 

90 

1 





329 

i 

****************************************************************************** 

330 

1 


BASE PAGE LOCATIONS 


331 

l 

sees#*##*** see# ************ #**##*#**#****#*##**#♦*#***********#***###***#*#**# 
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0000 
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333 
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ROMCOD 


334 
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CB: RQMCOD# DB: ROMDAT. EB: ABSO 
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0000' B2 09* 
0002 ' E9 OOF 2 


0009 ' 

BO 

IB 

0007 ' 

E6 

18 

0009 ' 

BO 

40 

OOOB ' 

BA 

0019 

OOOE ' 

EE 


OOOF ' 

BO 

01 

001 1' 

EE 


0012 ' 

BO 

FO 

0014' 

EE 


0019' 

EC 


0016' 

3C 

FO 

0018' 

79 

E6 

001 A ' 

BO 

CC 

001C' 

EE 


001D ' 

EC 


001E ' 

3C 

CC 

0020' 

79 

DE 

0022' 

BO 

99 

0024' 

EE 


0029' 

EC 


0026' 

3C 

99 

0028' 

79 

D6 

002A ' 

BO 

AA 

002C ' 

EE 


002D ' 

EC 


002E ' 

3C 

AA 

0030' 

79 

CE 

0032' 

BO 

FF 

0034' 

EE 


0039' 

E8 

OOCA 

0038' 

EB 

00D2 

003B ' 

E8 

OOBE 

003E ' 

EB 

0006 

0041 ' 

B9 

0162 

0044' 

EB 

0004 

0047' 

30 

D2 

0049' 

FB 


004A ' 

90 


004B ' 

90 


004C ' 

FA 



v 


336 

337 
33B 

339 

340 

341 

342 

343 

344 
349 

346 

347 

348 

349 

390 

391 

392 

393 

394 
399 

396 

397 
39B 
399 

360 

361 

362 

363 

364 
369 

366 

367 

368 

369 

370 

371 

372 

373 

374 
379 

376 

377 

378 

379 

380 

381 

382 

383 

384 
389 
386 
3B7 


IMRER: MOV DL# ICNERR III SET ERROR CODE INTO DL 

JhP FATAL I I i AND REPORT ERROR 

l 

I This le the entry to the interrupt controller diagnostics. First# the 
i controller is initialized along with all the interrupt vectors in memory, 
i The ItIR register is tested with interrupts disabled. With all vectors 
I set to "Invalid interrupt" the basic interrupts are unmasked. If no 
I invalid interrupts occur# the test proceeds, 
i 

i Disable speaker and timer interrupts. 

i 


INTTBT: MOV 

AL# <ICW1 + IC_IW4 ♦ IC 

OUT 

INTAOO# AL 

MOV 

AL. IROINT 

MOV 

DX. INTA01 

OUT 

DX# AL 

MOV 

AL. < ICW4 ♦ IC_MB6> 

OUT 

DX# AL 

MOV 

AL, OFOH 

OUT 

DX, AL 

IN 

AL. DX 

CMP 

AL, OFOH 

JNE 

IMRER 

MOV 

AL. OCCH 

OUT 

DX, AL 

IN 

AL. DX 

CMP 

AL. OCCH 

JNE 

IMRER 

MOV 

AL. 099H 

OUT 

DX. AL 

IN 

AL, DX 

CMP 

AL. 099H 

JNE 

IMRER 

MOV 

AL. OAAH 

OUT 

DX# AL 

IN 

AL. DX 

CMP 

AL, OAAH 

JNE 

IMRER 

MOV 

AL, OFFH 

OUT 

DX, AL 

CALL 

PRTRST 

CALL 

TIMRST 

CALL 

FLPRST 

CALL 

KEYR8T 

MOV 

CX, OFFSET INVINT 

CALL 

FILVEC 

XOR 

DL, DL 

ST I 


NOP 


NOP 


CLI 



i 


8N0 ♦ ICJLTM) 1 WRITE ICW1. 

i i 

ii Hardware interrupts 40h- >47h 

ii Point to controller mask reg. 

i i 

i i Select 8086 mode. 

I i 

ii Try an interrupt mask, 
i i 

i i Read interrupt mask. 

ii Q: Is mask correct 7 

i i No# fatal error, 

i i Yes# try another mask, 

i f 

i i Read mask. 

ii Q: IB MASK CORRECT 7 

i i NO, FATAL ERROR, 

i i Yes# try another mask, 

i i 

i i Read mask. 

I i Q: IS MASK CORRECT 7 

I I NO, FATAL ERROR, 

i i Yes# try another mask. 

I i 

i i Read mask. 

I I Q: IS MASK CORRECT 7 

l i NO# FATAL ERROR. 

I I MASK ALL INTERRUPTS. 

I l 

II RESET PRINTER 

I i RESET TIMER DEVICES, 

l I RESET FLOPPY CONTROLLER. 

I i RESET KEYBOARD UART INTERFACE. 

I i BET ADDRESS INVALID INTR VECTOR. 

I • BET INTERRUPT VECTORS TO INVALID. 

II SET INITIAL ERROR FLAG 
ENABLE INTERRUPTS. 

WINDOW 
WINDOW 

I i DISABLE INTERRUPTS. 
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388 

1 

NOW TO CAUSE INDIVIDUAL INTERRUPTS IN THE FOLLOWINQ ORDER 





389 

l 

NMI. 

TIMERS. FLOPPY. KEYBOARD. THE NMI IS TESTED WITH THE 





390 

1 

CRT AND PARITY INTERRUPTS DISABLED. 





391 

1 





004D ' 

268B OE 0000 


392 


MOV 


CX» EB: WORD PTR <NMIINT*4) ill SAVE CURRENT NMI VECTOR. 

0002' 

26C7 06 0008 

0134" 

393 


MOV 


ESiWORD PTR «NMIINT*4>, 

OFFSET NMIVCT i I « NMI INTERRUPT VECTOR. 

0009' 

BO 

22 


394 


MOV 


AL. <UCJ?TB + UCJJTR) 

ill RAISE DTR TO CAUSE NMI. 

009B ' 

E6 

11 


399 


OUT 


KBCMD, AL 

I l f DO IT. 

009D ' 

BO 

20 


396 


MOV 


AL, UC_RTB 

i f i RESTORE NMI DISABLE, JUST IN CASE. 

009F ' 

E6 

11 


397 


OUT 


KBCMD, AL 

i i i 

0061 ' 

2689 OE 0008 


398 


MOV 


ES: WORD PTR (NMIINTM), 

CX in RESTORE NMI VECTOR. 

0066' 

80 

OE 0002 M 08 

399 


OR 


PRCO_M, PARIEN 

ill RE-ENABLE PARITY NMI INTERRUPT. 

006B ' 

AO 

0002" 


400 


MOV 


AL. PRCO M 

I i I 

006E ' 

E6 

03 


401 


OUT 


PRCO_P.AL . 

III 





402 

« 









403 

1 

NOW 

FOR 

TIMER INTERRRUPT. ONLY 

TIMER 1 18 TESTED SINCE TIMER2'8 





404 

f 

INTERRUPT 18 SHARED WITH FOREIGN DEVICES ON THE BUS. 





409 

1 





0070' 

BO 

F7 


406 


MOV 


AL, ENAB3 

1 i i ENABLE 8YBTEM TIMER INTERRUPT. 

0072' 

E6 

19 


407 


OUT 


INTA01, AL 

i 1 1 

0074' 

FB 



408 


ST I 



III ALLOW INVALID INTERRUPT TO OCCUR 

0070' 

80 

OE 0001 - 02 

409 


OR 


DBKC M. TMR1EN 

l BET TIMER I NT ENABLE LATCH. 

007A ' 

AO 

0001- 


410 


MOV 


AL. DSKC M 

I 

007D ' 

26C7 06 010C 

013C- 

411 


MOV 


EB: WORD PTR <IR3INT*4), 

OFFSET TIMRIN i BET UP CORRECT VECTOR. 

0084' 

E6 

00 


412 


OUT 


DBKC_P. AL 

1 ENABLE TIMER 1. 

0006' 

BO 

76 


413 


MOV 

AL. 

<TC SC 1 +TC JWRD+TC J1D3 ) 

1 SET UP BYBTEM TIMER. 

0088' 

E6 

17 


414 


OUT 


TIMCMD. AL 

1 WRITE TO TIMER COMMAND REG. 

OOBA' 

BO 

02 


419 


MOV 


AL. 02 

• LOW BYTE OF COUNT. 

OOBC ' 

E6 

19 


416 


OUT 


TIMER1, AL 

I 

OOBE' 

BO 

00 


417 


MOV 


AL. 00 

I HIGH BYTE OF COUNT. 

0090' 

E6 

19 


418 


OUT 


TIMER 1. AL 

i 

0092' 

B3 

03 


419 


MOV 


BL. 03 

i LOOP FOR AT LEAST 19 MICR0SEC8 

0094' 

FE 

CB 


420 

DECLOP: 

DEC 


BL 

I 

0096 ' 

79 

FC 


421 


JNE 


DECLOP 

i 

0098' 

FA 



422 


CL I 



I I I 

0099' 

26C7 06 010C 

0162- 

423 

QOTIH: 

MOV 


EB: WORD PTR <IR3INT*4>, 

OFFSET INVINT ill RESTORE INVALID VECTOR 

OOAO ' 

80 

26 0001- FD 

424 


AND 


DSKC _M. NOT TMR1EN 

l i i DISABLE TIMER INTERRUPT. 

00A9 ' 

BO 

02 


429 


MOV 


AL. TMR1EN 

1 i i 

00A7' 

E6 

00 


426 


OUT 


DBKC JP. AL 

1 l l 





427 

« 









428 

i 

NOW 

FOR 

DISK CONTROLLER INTERRUPT. FIRST. THE INTERRUPT IS 





429 

I 

ENABLED 

TO DETERMINE IF AN INTERRUPT FROM THE BUS IS PENDING. 





430 

i 

IF SO, 

IT IB INVALID. 






431 

i 





00A9 ' 

BO 

BF 


432 


MOV 


AL, ENAB6 

I i i SET ENABLE OF DISK INTERRUPT. 

OOAB ' 

E6 

19 


433 


OUT 


INTA01, AL 

in WRITE TO INT CONTROLLER. 

OOAD ' 

B9 

4B1E 


434 
439 ' 

MOV 


CX, 4B1EH 

Ill DELAY 100 MB. 

OOBO' 

FB 

\ 


BTI 



i 

OOB 1 ' 

E2 

FE 


436 


LOOP 

♦ 

i WAIT JUST IN CASE. 

00B3 ' 

FA 



437 


CLI 



ill 

00B4 ' 




438 

QOTST: 





00B4 ' 

26C7 06 0118 

01 4E” 

439 


MOV 


ES:WORD PTR ( IR6 INT*4 ) , 

OFFSET FLPINT 
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I 


008B 9 

FB 




440 


8TI 


I 



OOBC * 

EB 

0009 



441 


CALL 

FORCIT 

1 


FORCE FLOPPY INTERRUPT. 

OOBF' 

FA 




442 


CLI 


l l 1 



OOCO* 

26C7 06 

0118 

0162" 

443 


HOV 

EB: WORD PTR 

(IR6INT*4>. OFFSET 

INVINT i i i RESTORE VECTOR. 






444 

1 











440 

l 

NOW TO 

TRY KEYBOARD 

INTERRUPT. 








446 

f 






00C7 9 





447 

KEYTBT: 






00C7 9 

BO 

7F 



448 


MOV 

AL* ENAB7 

1 1 i 


ENABLE FOR KEYBOARD INT. 

OOC9 * 

E6 

19 



449 


OUT 

INTA01, AL- 

l 1 1 



OOCB 9 

FB 




400 


8TI 


l 1 « 


CAUSE INVALID INTERRUPT 

OOCC' 

90 




401 


NOP 


l 



OOCD * 

90 




402 


NOP 


1 



OOCE * 

FA 




403 


CLI 


f 1 1 


IF IT OCCURB. 

OOCF * 

26C7 06 

one 

0109" 

404 


MOV 

ES: WORD PTR 

(IR7INTM). OFFSET 

KBDINT i f i 

0006 ' 

BO 

21 



400 


MOV 

AL* (UC__RTB 

+ UC_TXE> ui 


CAUSE KEYBOARD INTERRUPT. 

0008 # 

E6 

11 



406 


OUT 

KBCMD« AL 

i l i 



OODA 9 

FB 




407 


8TI 


I l l 



OODB 9 

B9 

0014 



408 


MOV 

CX» 20 

l 


LOOP FOR A WHILE. 

OODE 9 

E2 

FE 



409 


LOOP 

% 

I 



OOEO' 

FA 




460 


CLI 


l I I 



00E1 # 

BO 

20 



461 


MOV 

AL# UC RTS 

l l l 



00E3 9 

E6 

11 



462 


OUT 

KBCMD. AL 

« « l 


RESTORE KEYBOARD UART. 

OOEO 9 

BO 

FF 



463 


MOV 

AL. OFFH 

1 1 i 


DISABLE ALL INT IN MASK. 

00E7 9 

E6 

19 



464 


OUT 

INTA01# AL 

i i i 



00E9 9 

26C7 06 

one 

0162" 

460 


MOV 

EB:WORD PTR 

<IR7INT*4>. OFFSET 

INVINT ill 






466 

f 











467 

i 

GET AND 

REPORT ON ANY ERRORS 








468 

i 






OOFO 9 

BO 

IE 



469 


MOV 

AL. 00011 HOB ill 

AND OF NMI. TIMER, KEY AND FLOPPY 






470 

f 



1 f f 

INTERRUPT OCCURRENCES 

00F2* 

30 

€2 



471 


XOR 

DL. AL 

1 1 1 

SETS CORRECT BIT IN ERROR IF NO 






472 

f 



1 I « 

INTERRUPT OCCURRED. 

00F4 9 

E9 

0008" 



473 


JMP 

TIMTST 


JUMP AND CONTINUE TESTING 






474 

i 



1 1 1 

(TIMER TEST REPORTS ERRORS) 






470 

I 

COMMON 

FATAL EXIT FOR ALL INTERRUPT 

ERRORS. 






476 

« 






00F7 9 





477 

FATAL: 






00F7 9 

BO 

OB* 



478 


MOV 

AL.LED100 

1 

BET UP LED PATTERN FOR DSPDIE 

00F9 # 

E9 

0003" 



479 


JMP 

D6PDIE 

1 








480 

i 











481 

« 

ROUTINE 

TO DISABLE 

FLOPPY CONTROLLER. 







482 

l 






OOFC 9 





483 

FLPR8T : 






OOFC 9 

EB 

0007" 



484 


CALL 

FRCINT 

I 


MAGIC CODE TO RESET FLOPPY 

OOFF' 

E4 

20 



480 


IN 

AL# FDCSTA 

1 


DISK CONTROLLER. 

0101' 

C3 




486 


RET 








% 


4B7 

I 











408 

f 

ROUTINES TO DISABLE 

PRINTER. PARITY 

AND TIMER INTERRUPTS. 






489 

i 






0102 ' 





490 

PRTR8T: 






0102 ' 

80 

26 0002- 77 

491 


AND 

PRCOJM# NOT 

(PARIEN+PRINEN) 


1 DISABLE PARITY INTERRUPT. 
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0107' 

AO 

0002" 

492 


MOV 

AL.PRCO M 


l 

DISABLE PARALLEL PORT INTERRUPT 

010A' 

E6 

03 

493 


OUT 

PRCO__P, AL 


1 


010C ' 

C3 


494 


RET 








493 

I 






010D' 



496 

TIMRBT: 






010D' 

80 

26 0001- F9 

497 


AND 

DSKC JM. NOT 

C TMR 1 EN+TMR2EN > 

ill Disable timer 1 and 2. 

0112' 

AO 

0001" 

498 


MOV 

AL. DSKC M 


l 1 1 


0113' 

£6 

00 

499 


OUT 

DBKC J\ AL 


1 1 1 


0117' 

C3 


300 


RET 








301 

i 


l 




0118' 



302 

FORCIT: 






0118' 

9C 


303 


PUSHF 



i Save carry and interrupt status. 

0119' 

FA 


304 


CL I 



i 


OllA' 

AO 

oooi- 

303 


MOV 

AL.DSKCJ1 . 


i l i 

READ CURRENT MEMORY STATE. 

01 ID ' 

24 

3F 

306 


AND 

AL, MMASK 


i i i 

MASK OFF CONTROL BITS. 

01 IF ' 

OC 

80 

307 


OR 

AL, ACCFDC 


i i i 

SET UP FOR CPU < — > FDC. 

0121 ' 

E6 

00 

308 


OUT 

DSKC JP , AL 


j i i 

BET THE LATCH. 

0123' 

A2 

oooi- 

309 


MOV 

DBKC_M, AL 


i i i 

UPDATE MEMORY STATE. 

0126' 

9D 


310 


POPF 



i i i 

RESTORE INTERRUPT STATUS. 

0127' 

BO 

DB 

311 


MOV 

AL, IMMINT 


i 

CAUSE IMMEDIATE INTERRUPT. 

0129' 

E6 

20 

312 


OUT 

FDCCMD, AL 


i 


012B ' 

BO 

OA 

313 


MOV 

AL, 10 


i 

WAIT FOR CMD TO EXECUTE. 

01 2D ' 



314 

INTDLY: 






01 2D ' 

FE 

CB 

313 


DEC 

AL 


i 


012F ' 

73 

FC 

316 


JNZ 

INTDLY 


> 


0131 ' 

E4 

20 

317 


IN 

AL. FDCSTA 


f 

READ STATUS TO CLEAR INTERRUPT. 

0133' 

C3 


318 


RET 








319 

i 









520 

i 

ENTRY 

POINT FOR OCCURRENCE OF 

NMI 





321 

f 






0134' 

BO 

20 

322 

NMIVCT : 

MOV 

AL. UC_RTB 


I f i 

DISABLE FURTHER NMI '8. 

0136 uf 

, E6 

11 

323 


OUT 

KBCMD, AL 


I i i 


013B 1 

80 

CA OC* 

324 


OR 

DL. NMIERR 


I l l 

INDICATE CORRECT OCCURRENCE. 

013B ' 

CF 


523 


IRET 








526 

« 









327 

» 

ENTRY 

FOR OCCURENCE 

OF TIMER 

INTERRUPT 




328 

I 






013C ' 

80 

26 OOOl- FD 

329 

TIMRIN: 

AND 

DSKC JM, NOT 

TMR1EN 

i I i 

DISABLE TIMER INTERRUPT. 

0141 ' 

AO 

0001" 

530 


MOV 

AL, DSKCJ1 


i I f 


0144' 

E6 

OO 

331 


OUT 

DSKC_P. AL 


i f i 


0146' 

80 

CA OD* 

332 


OR 

DL. TIMERR 


« « i 

INDICATE CORRECT OCCURRENCE 

0149' 

BO 

20 

333 

COMNI: 

MOV 

AL, EOI 


l I I 


014B ' 

E6 

18 

334 


OUT 

INTAOO, AL 


I I f 


014D ' 

CF 


333 


IRET 








336 

i 









337 

» 

ENTRY 

FOR FLOPPY INTERRUPT 






338 

i 






014E ' 

E4 

20 v 

339 

FLPINT: 

IN 

AL, FDCSTA 


i i i 

READ FLOPPY STATUS TO RESET INT 

0130' 

BO 

DO 

340 


MOV 

AL. FORCED 


i I i 

RESET FLOPPY INTERRUPT. 

0132' 

E6 

20 

341 


OUT 

FDCCMD, AL 


i i i 


0134' 

80 

CA OF* 

542 


OR 

DL, FLIERR 


l I i 

INDICATE CORRECT OCCURRENCE 

0157' 

EB 

FO 

543 


JMP 

COMNI 


9 I 1 
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344 

i 







343 

i ENTRY 

FOR KEYBOARD INTERRUPT. 






346 

l 




0139' 

BO 

20 

347 

KBDINT: NOV 

AL, <UC_RTB ) 

i i i 

DISABLE KEY INT. 

013B ' 

E6 

11 

348 

OUT 

KBCMD, AL 

i i f 


013D ' 

00 

CA 0E» 

349 

OR 

DL» KEYERR 

i I i 

INDICATE CORRECT OCCURRENCE 

0160' 

EB 

V 

330 

JMP 

CONN I 

i f i 

COMMON INTERRUPT EXIT 



331 

l 







332 

l ENTRY 

FOR AN INVALID INTERRUPT 






333 

« 




0162' 

F6 

D2 

334 

INVINT: NOT 

DL 

« l f 

SETS ANY UNTESTED BITS IN ERROR. 




333 

i 


l i I 

NUMBER OF GOOD BITS INDICATES 




336 

f 


1 1 i 

PROGRESS THROUGH THE TEST 




337 

f OR 

DL# IVIERR 

i i i 

SIGNAL ERROR 

0164' 

EB 

91 

338 

JMP 

FATAL 

I l i 

JUMP AND REPORT ERROR 




339 

END 





No errors detected 


% 


» r 
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INTXIT 

INTXIT. 


CR8086/1 I vision 10.34.17 3-Aug-83 16:41:0 

SRC 


1 i *«***«*******»*«***#»«*«**»**«*«*«»#*****««*#*»«•*««»*«*«*«*»»•»•«•««*»»«* 

2 i TITLE - INTXIT (COMMON INTERRUPT EXIT LOGIC) 

3 I COMPUTER - 8068 ASSEMBLY LANGUAGE 

4 I ABSTRACT - This module contains the common interrupt exit logic executed 

9 i by all interrupt processors. The address of this routine is stored 

6 i in an interrupt vector location (interrupt XITVEC) in segment ABSO 

7 i (Absolute Zero) so that it is accessible to application programs. 

8 » This logic decrements the interrupt counter and saves the location 

9 i of the stack of the interrupted logic. The interrupt exit logic 

10 i then restores commonly used registers from the interrupt stack* 

11 i switches back to the stack of the interrupted logic* and restores 

12 i register D8 from the user stack. 

13 f 

14 i Also contained in . this module is the dummy entry point used by 

19 i soft interrupts 6LCINT and TIMINT when ZEX is not present in the 

16 i system. This logic simply does an IRET. 

17 i 

18 i INPUTS - ES*BX « 68* 8P of interrupted logic 

19 i Interrupt stack contains saved E8. BX. AX (E8 at top of stack). 

20 » Stack of interrupted logic contains saved D8. 

21 i 

22 i OUTPUTS - 

23 i 

24 I REGISTERS USED - 

29 « 

26 f 8TACK USED - 

27 i 

28 i ************************************************************************** 

29 NAME INTXIT 

30 BUBTTL 

32 I ************************************************************************** 

33 I PUBLIC DEFINITIONS 

34 i ************************************************************************** 
39 

36 PUBLIC INTRET 

37 PUBLIC INTXIT 

38 

39 i ************************************************************************** 

40 i EXTERNAL REFERENCES 

41 i ************#***#***********#***********************#***#**************#**< 

42 


-0000 

43 

SECT 

ROMDAT 








44 

EXTERN 

IXBPSV: WORD 

1 

Where 

Interrupt 

Exit 

saves SP 

(ROMDAT) 


49 

EXTERN 

IXSSSV: WORD 

1 

Where 

Interrupt 

Exit 

saves SB 

(ROMDAT) 


v 


\ 


SOT* 


INTXIT CRB0B6/11 verelon 10.34.17 3-Aug-B3 16:41:2 Page 2 

INTXIT. BBC 




47 

1 i 

»•»«« 






40 

I 



LOCAL CONBTANTB 




49 

i 


INCLUDE 

PEG: VECTOR, EQU 




30 

I 


INCLUDE 

PEQ: INTCTLR. EOU 




31 

I i 







173 



BUBTTL 

MAIN 




174 

• < 







173 

l 



MODULE ENTRY POINT 




176 

« 







177 







-0000 

170 



SECT 

ROMCOD 




179 



ASSUME 

CS: ROMCOD 




100 



ASSUME 

DS: NOTHING 




101 






0000 ' 


102 

INTXIT 

FROG 

FAR l 

EB. BX - ORIGINAL 88. BP 

0000 ' 

FA 

1B3 



CL I 

f 

DI8ABLE INTERRUPTS 

0001 ' 

BO 20 

104 



MOV 

AL» EOI ill 

RESET 8239 

0003' 

E6 10 

103 



OUT 

1NTA00. AL III 


0003' 

2EFE OE C19A 

106 



DEC 

BYTE PTR CB: INTCTR+CBWRAPi I I 

DECREMENT INTERRUPT COUNTER 



107 








100 



ASSUME 

D8: ROMDAT 


OOOA ' 

2E8E IE C10O 

189 



MOV 

DS. WORD PTR CS: DSADDR+CBWRAPi • • 

DS - ROM DATA SEGMENT 

OOOF ' 

0C 06 0002" 

190 



MOV 

IXSSSV.ES hi 

SAVE BS. BP OF ORIGINAL LOGIC 

0013' 

09 IE 0001" 

191 



MOV 

IXSPSV. BX III 


0017' 

07 

192 



POP 

E8 III 

RESTORE COMMONLY USED REGISTERS 

0010' 

SB 

193 



POP 

BX III 

FROM INTERRUPT STACK 

0019' 

30 

194 



POP 

AX ill 


001 A ' 

BE 16 0002" 

193 



MOV 

SB* IX8B8V ill 

RESTORE ORIGINAL 88. BP 

001E ' 

0B 26 0001" 

196 



MOV 

BP. IXSPSV ill 


0022' 

IF 

197 



POP 

D8 III 

RESTORE DS FROM ORIGINAL STACK 



190 

i 


IRET 

1 1 i 

** INTERRUPT RETURN ** 



199 








200 








201 

i 







202 

f 







203 

« 

INTRET i« the 

logic that ii *x*cut*(i by a 10 ft interrupt* to 6LCINT 



204 

l 

and 

T1MINT 





203 

• 







206 

i { 

***** 






207 






0023' 


200 

INTRET 

PROC 

FAR i 

Dummy »oft interrupt 

0023' 

CF 

209 



IRET 

l 

** INTERRUPT RETURN ** 



210 








211 



BUBTTL 





212 



END 




No errors detected 

v 
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10 

it 

12 

13 

14 
19 
16 

17 

18 

19 

20 
21 
22 

23 

24 
26 

27 

28 

29 

30 

31 

32 

33 

34 
33 

36 

37 
30 

39 

40 

41 

42 

246 

247 

248 

249 

250 

251 

252 

253 

234 

235 
256 


TITLE - KBTABL ~ Standard keyboard encoding tablet 

COMPUTER - 8008 ASSEMBLY LANGUAGE (BSO Assembler) 

ABSTRACT - Tbit module contains the data tablet used by the Pegatut 
keyboard routinet for standard encoding of the keyboard. 

At explained in the keyboard driver module* the keyboard tendt 
one or two bytes per key depression. The first contains the 
mode key information (CTRL* SHIFT* etc. ). The second is the 
'scan code' corresponding to the key's physical position on the 
keyboard. These tables are arranged in order of ascending 
scan codes. The mode determination is handled in the keyboard 
DSR code and the correct table accetsed for encoding. The 
keyboard layout charts below map the physical locations of 
the keys to the scan codes. If the byte looked up it -1 ( OFFH ) * 
the key it to be ignored. If the byte it greater than 7FH. but 
lest than OFCH (i.e. the high bit is set)* then the low order 7 
bits are used as an index into the KBFUNC table to retrieve 
the function key code. The other possible values are defined 
at follows: OFEH is the Program Pause function* OFDH is the 

Program Break function* and OFCH it the Print Screen function. 


NAME KBTABL - Standard keyboard encoding tablet 
BUBTTL 


PUBLIC DEFINITIONS 

««**#*««««««»««*#**»»«*»****»**«* ***«***#«*»#«*««*«*«*«»***«**»*»»•****««*««»* 
PUBLIC KB_ALT 
PUBLIC KBCTRL 
PUBLIC KBFUNC 
PUBLIC KBNUMK 
PUBLIC KBBHFT 
PUBLIC KBUNSH 


LOCAL CONSTANTS 


INCLUDE PEG: ASCII.EGU 

INCLUDE PEG: KBSPCL. EQU 

I NCLUDE PEG : KBM I SC . EQU 


GENERAL KEYBOARD POSITION NUMBERING: 
(left half) 


I I I I I 
11011102110311041 


I I I I I 
I 1 I 2 I 3 I 4 I 


I I I I I 
19 16)7101 
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I I I I I I I I I I I I I I II 
169 I 9 110 111 112 113 114 119 116 117 I IB 119 120 121 122 I 

I I I I I I I I I I I I I I I I 

I 49 190 191 192 193 194 199 196 197 198 199 160 161 I 162 I 

, 

I I I I I I I I I I I I I I II 

| *** | **# | 66 167 I6B 169 170 171 172 173 174 179 176 I 77 I7B I 

II I I I I I I I I I I I I 

1***1 »*» 1 82 IB3 184 189 186 187 188 189 191 192 I »«» I 


fright half) 





147 

1 

148 

t i i 

1100190 1 




1 

1 

1 

1 1 




123 

124 

129 

126 1 

f 63 ) 

1 

1 ( 49 ) 

1 

1 

1 

1 1 


164 

1 

139 

140 

133 

134 1 

1 

1 

1 1 

\ 

1 

1 

1 1 

179 

180 

146 1 

131 

132 

141 

142 1 


1 

1 

1 

1 

1 

1 1 

( 99 ) 

196 

1 ( 94 ) 

127 

139 

143 

130 1 




1 

1 29 

1 

144 

1 1 
1 1 


*•* indicates the mode keys* for which no scan code is sent 


STANDARD U. 8 . LAYOUT AND SYMBOLIZATION: 


fleft half) 


I I I I I 

IF 1 IF 2 IF 3 IF 4 I 


I I I I I 

IF 9 IF 6 IF 7 IF 8 I 


I I I I I 
IF 9 IF 10 IF 1 1 IF 12 I 


I + I BACK I ~ I 
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-0000 


309 

310 

311 

312 

313 

314 
319 

316 

317 

318 

319 

320 

321 

322 

323 

324 
329 

326 

327 

328 

329 

330 

331 

332 

333 

334 
339 

336 

337 

338 

339 

340 

341 

342 

343 

344 
349 

346 

347 

348 

349 

390 

391 

392 

393 


I ESC I 1 121314191617(819101 — 1 


I6PCEI 


I 


I I I I I I I I I I I I < I > I I L I 

I TAB IQIUIEIRITIYIUIIIOIPICIII IFI 

+ , , 

I ICAPI I I I I I I I I I : I " I RET I I I 

ICTLILOKI AI8IDtFIQIHIJIKIL.il I 'I INI 

I I I I I I I I I 1(1)17 1 I 

I ALT I SHIFT I ZIXICIVIBINIHI. I. 1/ I8HIFTI 


( SPACE BAR ) 


(right half) 


I IBRKI I 
1 NS I DEL I PAU I PRT I 


I a | 
I I I 


I I I I 
I ( — I HOM I — >1 


I I I 
I V I 


I I I I 
- I ♦ IBPC I TAB I 


I I I I 
7 I 8 I 9 I - I 


I I I 
4 I 9 I 6 I 


I I E I 

I 3 I N I 

1 

I I 

I 


T 

E 

R 


THE TABLES: 


SECT 


ROMCOD 


UNSHIFTed (normal) table - Note that the value # xx # in keys defined as 





394 i 

9 x x+BOH 

' is to be used as 

an 

index into KBFUNC 




399 • 





0000 ' 



396 KBUNSH LABEL 

BYTE i 

Key 

ft Lengend: 

0000 # 

AO 


397 

DB 

32+80H 1 

01 

F9 key 

0001 ' 

A1 


398 

DB 

33+BOH » 

02 

F6 key 

0002 ' 

A2 


399 

DB 

34+BOH l 

03 

F7 key 

0003 9 

A3 


360 

DB 

35+80H i 

04 

FB key 
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0004' 

A4 


361 

DB 

36+80H 

i 03 

F9 key 

0003 ' 

A3 


362 

DB 

37 •♦-BOH 

i 06 

F10 key 

0006' 

F3 


363 

DB 

1 1 3+B0H 

) 07 

Fll key 

0007' 

F4 


364 

DB 

1 16+80H 

i 08 

F12 key 

0008 ' 

31 


363 

DB 

'1 ' 

l 09 

1 / ! 

0009 ' 

32 


366 

DB 

'2' 

) 10 

2/8 

000A ' 

33 


367 

DB 

'3' 

l 11 

3 / « 

OOOB ' 

34 


368 

DB 

'4' 

i 12 

4/4 

OOOC' 

33 


369 

DB 

'3' 

l 13 

3 / 7. 

OOOD ' 

36 


370 

DB 

'6' 

I 14 

6 / A 

OOOE ' 

37 


371 

DB 

'7' 

i 13 

7/6 

OOOF ' 

38 


372 

DB 

'8' 

l 16 

8 / * 

0010 ' 

39 


373 

DB 

'9' 

1 17 

9 / C 

0011' 

30 


374 

DB 

'0' 

1 18 

0 / ) 

0012 ' 

2D 


373 

DB 

# _ » 

i 19 

~ / _ 

0013' 

3D 


376 

DB 

•m • 

f 20 

- / + 

0014' 

08 


377 

DB 

B8 

1 21 

BACK BRACE key 

0013' 

60 


378 

DB 

M I 

l 22 

% / * 

0016' 

3D 


379 

DB 

•m • 

i 23 

NUM - (numeric pad) 

0017' 

2B 


380 

DB 

' 

i 24 

NUM + 

0018 ' 

20 


381 

DB 

SPACE 

i 23 

NUM SPACE key 

0019' 

09 


382 

DB 

HT 

J 26 

NUM TAB key 

001 A ' 

31 


383 

DB 

'1 ' 

1 27 

NUM 1 

001B ' 

FF 


384 

DB 

-1 

1 28 

(not implemented) 

001C' 

30 


383 

DB 

'0' 

1 29 

NUM 0 

001D ' 

OD 


386 

DB 

CR 

i 30 

NUM ENTER key 

001E ' 

34 


387 

DB 

'4' 

l 31 

NUM 4 

001F ' 

33 


388 

DB 

'3' 

i 32 

NUM 5 

0020' 

39 


389 

DB 

'9' 

1 33 

NUM 9 

0021' 

2D 


390 

DB 

0 _ . 0 

1 34 

NUM - 

0022' 

32 


391 

DB 

'2' 

1 33 

NUM 2 

0023' 

FF 


392 

DB 

-1 

i 36 

(not implemented) 

0024' 

FF 


393 

DB 

-1 

1 37 

(not implemented) 

0023' 

FF 


394 

DB 

-1 

1 38 

(not implemented) 

0026' 

37 


393 

DB 

'7' 

1 39 

NUM 7 

0027' 

38 


396 

DB 

'8' 

1 40 

NUM 8 

0028' 

36 


397 

DB 

'6' 

1 41 

NUM 6 

0029' 

2C 


398 

DB 

# * 
* 

f 42 

NUM , 

002A ' 

33 


399 

DB 

'3' 

l 43 

NUM 3 

002B ' 

2E 


400 

DB 

• ^0 

f 44 

NUM • 

002C ' 

CE 


401 

DB 

7B+80H 

1 43 

PRINT key (duplicate of 90) 

002D ' 

AA 


402 

DB 

42+80H 

I 46 

Cursor RIGHT key 

002E ' 

AE 


403 

DB 

46+BOH 

l 47 

INSert key 

002F ' 

AF 


404 

DB 

47+B0H 

) 48 

DELete key 

0030' 

09 


403 

DB 

HT 

l 49 

TAB key 

0031' 

71 


406 

DB 

'«T 

1 50 

Q 

0032' 

77 


407 

DB 

'w' 

i 31 

W 

0033' 

63 

V 

408 

DB 

'e ' 

1 32 

E 

0034' 

72 


409 

DB 

'r ' 

i 53 

R 

0033' 

74 


410 

DB 

't ' 

i 54 

T 

0036' 

79 


411 

DB 

'V ' 

i 53 

Y 

0037' 

73 


412 

DB 

'u' 

i 36 

U 
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0038 ' 

69 


413 


DB 

'1 ' 

i 57 

I 

0039' 

6F 


414 


DB 

'o' 

i 58 

0 

003A ' 

70 


415 


DB 

*p' 

I 59 

P 

003B ' 

5B 


416 


DB 

'C ' 

i 60 

t / i 

003C '• 

50 


417 


DB 

'1 ' 

I 61 

3 / > 

003D' 

OA 


418 


DB 

LF 

f 62 

LINE FEED key 

003E ' 

FE 


419 


DB 

PAUFNC 

i 63 

BREAK/PAUSE key (duplicate of 100) 

003F ' 

A7 


420 


DB 

39+80H 

i 64 

Cursor UP key 

0040' 

IB 


421 


DB 

E8C 

l 65 

EBC key 

0041 ' 

61 


422 


DB 

'a' 

l 66 

A 

0042' 

73 


423 


DB 

's' 

l 67 

8 

0043' 

64 


424 


DB 

'd' 

1 60 

D 

0044' 

66 


425 


DB 

'f ' 

1 69 

F 

0045' 

67 


426 


DB 

'g' 

i 70 

0 

0046' 

68 


427 


DB 

'h' 

J 71 

H 

0047 ' 

6A 


420 


DB 

'j' 

1 72 

J 

0040 ' 

6B 


429 


DB 

'i' 

i 73 

K 

0049' 

6C 


430 


DB 

'1 ' 

l 74 

L 

004A ' 

3B 


431 


DB 

'1 ' 

• 75 

i / : 

004B ' 

27 


432 


DB 

9 0 0 0 

1 76 

' / M 

004C ' 

00 


433 


DB 

CR 

• 77 

RETURN key 

004D ' 

SC 


434 


DB 

'\' 

l 70 

\ / 1 key 

004E ' 

A9 


435 


DB 

41+B0H 

l 79 

Cursor LEFT key 

004F ' 

A6 


436 


DB 

38+BOH 

I 00 

HOME k.y 

0050 ' 

20 


437 


DB 

BRACE 

1 01 

SPACE bar 

0051 ' 

7A 


43B 


DB 

'I ' 

1 82 

Z 

0052 ' 

78 


439 


DB 


1 03 

X 

0053 ' 

63 


440 


DB 

'c' 

l 04 

c 

0054 ' 

76 


441 


DB 

'v' 

l 05 

V 

0055 ' 

62 


442 


DB 

'b' 

1 06 

B 

0056 ' 

6E 


443 


DB 

'n' 

1 87 

N 

0057 ' 

60 


444 


DB 

'«' 

l 80 

M 

0058 ' 

2C 


445 


DB 

0 0 
• 

l 09 

. / < 

0059' 

CE 


446 


DB 

78+BOH 

1 90 

PRINT key 

OOSA ' 

2E 


447 


DB 

# 9 

m 

1 91 

. / > 

005B ' 

2F 


448 


DB 

'/' 

1 92 

/ / 7 

005C ' 

FF 


449 


DB 

-1 

l 93 

(not implemented) 

0050 # 

AF 


450 


DB 

47+80H 

1 94 

DELete key (duplicate of 48) 

005E ' 

AE 


451 


DB 

46+BOH 

i 95 

INSert key (duplicate of 47) 

005F ' 

AC 


452 


DB 

44+BOH 

l 96 

Cursor DOUN key 

0060' 

FF 


453 


DB 

-1 

l 97 

(not Implemented) 

0061 ' 

FF 


454 


DB 

-1 

l 98 

(not Implemented) 

0062 ' 

FF 


455 


DB 

-1 

l 99 

(not Implemented) 

0063 ' 

FE 


456 


DB 

PAUFNC 

l 100 

BREAK/PAUSE key 

0064' 

9C 


457 


DB 

2B+B0H 

f 101 

Fi key 

0065' 

90 


458 


DB 

29+BOH 

1 102 

F2 key 

0066' 

9E 


459 


DB 

30+B0H 

1 103 

F3 key 

0067' 

9F 

V 

460 


DB 

31^0OH 

l 104 

F4 key 




461 

I 







462 

l 

SMIFTed 

Node table - Note that the 

value 'xx' In keys defined as 




463 

l 

'xx+BOH' Is to be used as an index into KBFUNC for the actual value. 




464 

l 
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0068' 



469 

KBSHFT LABEL 

BYTE 

i 

Key 

4 Legend 

0068' 

B4 


466 

DB 

92+BOH 

l 

01 

F9 key 

0069' 

B9 


467 

DB 

93+80H 

i 

02 

F6 key 

006A ' 

B6 


468 

DB 

94+B0H 

1 

03 

F7 key 

006B ' 

B7 


469 

DB 

99+BOH 

l 

04 

F8 key 

006C ' 

B8 


470 

DB 

96+80H 

1 

09 

F9 key 

006D ' 

B9 


471 

DB 

97+80H 

1 

06 

F10 key 

006E ' 

F9 


472 

DB 

117+BOH 

1 

07 

FU key 

006F ' 

F6 


473 

DB 

118+BOH 

l 

08 

F12 key 

0070 ' 

21 


474 

DB 

' ! ' 

» 

09 

1 / ! 

0071 ' 

40 


479 

DB 


1 

10 

2 / t 

0072 ' 

23 


476 

DB 


I 

11 

3/4 

0073 ' 

24 


477 

DB 


1 

12 

4/4 

0074' 

29 


478 

DB 

'X' 

1 

13 

9 / X 

0079 ' 

9E 


479 

DB 

'A • 

1 

14 

6 / A 

0076 ' 

26 


480 

DB 

'll' 

1 

19 

7/6 

0077 ' 

2A 


481 

DB 

'* ' 

i 

16 

8 / * 

0078 ' 

28 


482 

DB 

'( ' 

I 

17 

9 / ( 

0079 ' 

29 


4B3 

DB 

') ' 

f 

18 

0 / ) 

007A ' 

9F 


484 

DB 

t » 

f 

19 

- / _ 

007 B ' 

2B 


489 

DB 

• 

1 

20 

- / 4- 

007C ' 

08 


406 

DB 

B8 

I 

21 

BACK SPACE key 

007D ' 

7E 


407 

DB 

t $ 

1 

22 

% / 

007E ' 

3D 


480 

DB 

t m t 

l 

23 

NUM ■ (numeric pad) 

007F ' 

2B 


489 

DB 

'+ ' 

1 

24 

NUM + 

0080 ' 

20 


490 

DB 

SPACE 

f 

29 

NUM SPACE key 

0081 ' 

81 


491 

DB 

1+0OH 

1 

26 

NUM TAB key 

0082' 

31 


492 

DB 

'1 ' 

1 

27 

NUM 1 

0003 ' 

FF 


493 

DB 

-1 

1 

28 

(not implemented) 

0084' 

30 


494 

DB 

'0' 

I 

29 

NUM 0 

0089 ' 

OD 


499 

DB 

CR 

1 

30 

NUM ENTER key 

0086 ' 

34 


496 

DB 

'4' 

1 

31 

NUM 4 

0087 ' 

39 


497 

DB 

'9' 

f 

32 

NUM 9 

0088' 

39 


498 

DB 

'9' 

J 

33 

NUM 9 

0089' 

2D 


499 

DB 

# _ / 

i 

34 

NUM - 

008A ' 

32 


900 

DB 

'2' 

» 

39 

NUM 2 

008B ' 

FF 


901 

DB 

-1 

l 

36 

(not implemented) 

008C ' 

FF 


902 

DB 

-1 

1 

37 

(not implemented) 

008D ' 

FF 


903 

DB 

-1 

1 

38 

(not implemented) 

OOBE ' 

37 


904 

DB 

'7' 

i 

39 

NUM 7 

OOBF ' 

38 


909 

DB 

'8' 

1 

40 

NUM 8 

0090 ' 

36 


906 

DB 

'6' 

i 

41 

NUM 6 

0091 ' 

2C 


907 

DB 

# 9 

9 

i 

42 

NUM , 

0092 ' 

33 


908 

DB 

'3' 

i 

43 

NUM 3 

0093 ' 

2E 


909 

DB 

$ $ 
• 

\ 

44 

NUM . 

0094 ' 

FC 


910 

DB 

PBCFNC 

i 

49 

PRINT key (duplicate of 90) 

0099' 

FI 


911 

DB 

113+80H 

1 

46 

Cur* or RIOHT key 

0096' 

E9 

V 

912 

DB 

101+80H 

i 

47 

INSert key 

0097' 

E0 


913 

DB 

104+80H 

l 

48 

DELete key 

0098' 

81 


914 

DB 

01+80H 

1 

49 

TAB key 

0099' 

91 


919 

DB 

'Q' 

8 

50 

Q 

009A ' 

97 


916 

DB 

'W' 

1 

91 

W 
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009B 9 

4B 


517 

DB 

'E' 

i 52 

E 

009C 9 



518 

DB 

'R' 

i 53 

R 

009D 9 

54 


519 

DB 

'T ' 

i 54 

T 

009E 9 

59 


520 

DB 

'Y' 

» 55 

Y 

009F 9 

55 


521 

DB 

'U' 

l 56 

U 

OOAO 9 

49 


522 

DB 

'1 ' 

i 57 

I 

OOAI ' 

4F 


523 

DB 

'0' 

i 50 

0 

00A2 9 

50 


524 

DB 

'P' 

l 59 

P 

00A3 9 

7B 


525 

DB 


1 60 

c / < 

OOA4 9 

7D 


526 

DB 


1 61 

3 / > 

OOA5' 

OA 


527 

DB 

LF 

f 62 

LINE FEED keg 

00A6 9 

FD 


528 

DB 

PBKFNC 

l 63 

BREAK/PAUSE keg (duplicate of 

OOA7 9 

EF 


529 

DB 

111 +0OH 

1 64 

Cursor UP keg 

00A8 9 

IB 


530 

DB 

E6C_ 

1 65 

ESC keg 

00A9 9 

41 


531 

DB 

'A' 

1 66 

A 

OOAA 9 

53 


532 

DB 

'B' 

1 67 

8 

OOAB 9 

44 


533 

DB 

'D' 

1 60 

D 

OOAC 9 

46 


534 

DB 

'F' 

I 69 

F 

OOAD 9 

47 


535 

DB 

'Q' 

1 70 

0 

OOAE 9 

48 


536 

DB 

'H' 

1 71 

H 

OOAF 9 

4A 


537 

DB 


1 72 

J 

OOBO 9 

4B 


538 

DB 

'K ' 

1 73 

K 

OOBI ' 

4C 


539 

DB 

'L' 

1 74 

L 

00B2 9 

3A 


540 

DB 


1 75 

i / : 

00B3 9 

22 


541 

DB 

9 * t 

l 76 

' / - 

OOB 4 9 

OD 


542 

DB 

CR 

i 77 

RETURN keg 

OOB 5' 

7C 


543 

DB 

'1 ' 

1 78 

\ / 1 

00B6' 

F2 


544 

DB 

U4+0OH 

1 79 

Cursor LEFT keg 

OOB 7 9 

EE 


545 

DB 

1 1O+0OH 

i 00 

HONE keg 

OOB8 9 

20 


546 

DB 

SPACE 

i 01 

SPACE bar 

00B9 9 

5A 


547 

DB 

# Z # 

1 02 

Z 

OOBA * 

58 


548 

DB 

•f 

i 03 

X 

OOBB 9 

43 


549 

DB 


I 84 

c 

OOBC 9 

56 


550 

DB 

'V' 

« 05 

V 

OOBD 9 

42 


551 

DB 

# B # 

j 06 

B 

OOBE 9 

4E 


552 

DB 


l 87 

N 

OOBF 9 

40 


553 

DB 


l 80 

M 

OOCO' 

3C 


554 

DB 

'< ' 

1 89 

. / < 

OOCI ' 

FC 


555 

DB 

P8CFNC 

1 90 

PRINT keg 

00C2 9 

3E 


556 

DB 


1 91 

. / > 

00C3 9 

3F 


557 

DB 

•l 9 

1 92 

/ / 7 

OOC4 9 

FF 


558 

DB 

-1 

1 93 

(not implemented) 

00C5 9 

E8 


559 

DB 

1O4+0OH 

1 94 

DELete keg (duplicate of 48) 

00C6 9 

E5 


560 

DB 

101 +0OH 

1 95 

INSert keg (duplicate of 47) 

00C7 9 

FO 


561 

DB 

112+BOH 

i 96 

Cursor DOWIN keg 

00C8 9 

FF 


562 

DB 

-1 

1 97 

(not implemented) 

00C9 9 

FF 


563 

DB 

-1 

1 90 

(not implemented) 

OOCA * 

FF 

\ 

564 

DB 

-1 

l 99 

(not implemented) 

OOCB * 

FD 


565 

DB 

PBKFNC 

l 100 

BREAK/PAUSE keg 

OOCC # 

BO 


566 

DB 

4B+0OH 

l 101 

FI keg 

OOCD 9 

B 1 


567 

DB 

49^0OH 

1 102 

F2 keg 

OOCE' 

B2 


568 

DB 

50-^BOH 

l 103 

F3 keg 


f “"\ 


"\ 
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OOCF 9 

B3 


569 


DB 

31+80H 

f 

104 

F4 key 




370 

l 









571 

1 

CONTROL Hod a tab la - 

Note that tha value 'xi # in keyi defined at 




572 

1 

'xx+BOH 

m 

er 

o 

w 

m 

u«ed am 

an 

index into KBFUNC for tha actual 




573 

1 






OODO 9 



574 

KB CTRL LABEL 

BYTE 

i 

Key 

W Legend 

OODO 9 

BE 


573 


DB 

62+80H 

i 

01 

F3 key 

OODI ' 

BF 


376 


DB 

63+80H 

i 

02 

F6 key 

00D2 9 

CO 


377 


DB 

64+BOH 

i 

03 

F7 key 

00D3 9 

Cl 


378 


DB 

63+BOH 

i 

04 

FB key 

OOD4 9 

C2 


379 


DB 

66+80H 

i 

05 

F9 key 

00D3' 

C3 


300 


DB 

67+BOH 

i 

06 

F10 key 

00D6 ' 

F7 


381 


DB 

119+BOH 

f 

07 

Fil key 

00D7 9 

F0 


382 


DB 

120+B0H 

i 

OB 

F12 key 

00D8 9 

FF 


303 


DB 

-1 

i 

09 

1 / ! 

00D9 9 

80 


384 


DB 

00+80H 

i 

10 

2/41 

OODA 9 

FF 


383 


DB 

-1 

i 

11 

3 / tt 

OODB 9 

FF 


586 


DB 

-1 

i 

12 

4/4 

OODC ' 

FF 


387 


DB 

-1 

i 

13 

3/7. 

OODD 9 

IE 


388 


DB 

RB 

i 

14 

6 / a 

CODE 9 

FF 


389 


DB 

-1 

i 

13 

7/1* 

OODF 9 

FF 


390 


DB 

-1 

i 

16 

B / a 

OOEO 9 

FF 


391 


DB 

-1 

i 

17 

9 / < 

OOEi ' 

FF 


392 


DB 

-1 

i 

IB 

0 / ) 

00E2 9 

IF 


593 


DB 

US 

i 

19 

- / 

00E3 9 

FF 


394 


DB 

-1 

i 

20 

■■ / 4- 

00E4 9 

7F 


393 


DB 

DEL 

i 

21 

BACK SPACE key 

OOE3' 

FF 


396 


DB 

-1 

i 

22 

% / ~ 

00E6 9 

3D 


397 


DB 

* m * 

i 

23 

NUM « (numeric pad) 

00E7 # 

2B 


398 


DB 


I 

24 

NUM ♦ 

OOE0 ' 

20 


399 


DB 

BP ACE 

i 

23 

NUM SPACE key 

00E9 9 

09 


600 


DB 

HT 

« 

26 

NUM TAB key 

OOEA 9 

31 


601 


DB 

'1 ' 

i 

27 

NUM 1 

OOEB 9 

FF 


602 


DB 

-l 

i 

20 

(not implemented) 

OOEC ' 

30 


603 


DB 

'0' 

f 

29 

NUM 0 

OOED 9 

OD 


604 


DB 

CR 

i 

30 

NUM ENTER key 

OOEE' 

34 


603 


DB 

'4' 

f 

31 

NUM 4 

OOEF 9 

33 


606 


DB 

'3' 

< 

32 

NUM 3 

OOFO 9 

39 


607 


DB 

'9' 

i 

33 

NUM 9 

OOFI ' 

2D 


608 


DB 

! __ / 

i 

34 

NUM - 

OOF 2 ' 

32 


609 


DB 

'2' 

i 

33 

NUM 2 

00F3' 

FF 


610 


DB 

-1 

i 

36 

(not implemented) 

00F4 9 

FF 


611 


DB 

-1 

i 

37 

(not implemented) 

OOF 3 ' 

FF 


612 


DB 

-1 

i 

38 

(not implemented) 

OOF6' 

37 


613 


DB 

'7' 

i 

39 

NUM 7 

OOF7 9 

38 


614 


DB 

'8' 

i 

40 

NUM 0 

OOFS 9 

36 


613 


DB 

'6' 


41 

NUM 6 

00F9' 

2C 

v 

616 


DB 

• $ 
$ 

) 

42 

NUM * 

OOFA 9 

33 


617 


DB 

'3' 

i 

43 

NUM 3 

OOFB 9 

2E 


618 


DB 

t » 

I 

44 

NUM . 

OOFC 9 

FF 


619 


DB 

~1 

8 

43 

PRINT key (duplicate of 90) 

OOFD 9 

DO 


620 


DB 

B0+80H 

i 

46 

Cursor RIGHT key 
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OOFE ' 

E6 


621 

DB 

102+B0H 

1 47 

INSert key 


OOFF ' 

E9 


622 

DB 

103+B0H 

i 48 

DELete key 


0100' 

09 


623 

DB 

HT 

1 49 

TAB key 


0101 ' 

11 


624 

DB 

DC 1 

1 30 

Q 


0102' 

17 


623 

DB 

ETB 

1 31 

U 


0103 ' 

03 


626 

DB 

ENQ 

f 32 

E 


0104' 

12 


627 

DB 

DC 2 

» 33 

R 


0103 ' 

14 


62B 

DB 

DC4 

l 34 

T 


0106 ' 

19 


629 

DB 

EM 

i 53 

Y 


0107 ' 

13 


630 

DB 

NAK 

« 36 

U 


010B ' 

09 


631 

DB 

HT 

1 37 

1 


0X09* 

OF 


632 

DB 

SI_ 

1 38 

0 


OlOA' 

10 


633 

DB 

DLE 

l 39 

P 


01 OB ' 

IB 


634 

DB 

ESC_ 

i 60 

t / < 


010C' 

ID 


633 

DB 

OS 

l 61 

3 / > 


010D ' 

D1 


636 

DB 

B 1 •♦•BOH 

l 62 

LINE FEED key 


010E § 

FF 


637 

DB 

“1 

1 63 

BREAK/PAUSE key (duplicate of 1001 


01 OF ' 

EO 


638 

DB 

96+BOH 

l 64 

Cursor UP key 


OHO 1 

IB 


639 

DB 

ESC_ 

1 63 

ESC key 


our 

Ol 


640 

DB 

BOH 

1 66 

A 


0112' 

13 


641 

DB 

DC3 

1 67 

8 


0113' 

04 


642 

DB 

EOT 

1 68 

D 


0114' 

06 


643 

DB 

ACK 

1 69 

F 


0113' 

07 


644 

DB 

BEL 

l 70 

0 

' 

0116' 

OB 


643 

DB 

BB 

l 71 

H 


0117' 

OA 


646 

DB 

LF 

l 72 

J 


0118' 

OB 


647 

DB 

VT 

1 73 

K 


0119' 

OC 


648 

DB 

FF 

1 74 

L 


01 1 A ' 

FF 


649 

DB 

~1 

l 73 

• / : 


01 IB ' 

FF 


630 

DB 

-1 

1 76 

' / M 

* 

OUC' 

OD 


631 

DB 

CR 

1 77 

RETURN key 


01 ID ' 

1C 


632 

DB 

FB 

1 78 

\ / 1 


OllE' 

CF 


633 

DB 

79+BOH 

1 79 

Cursor LEFT key 

i 

01 IF ' 

D3 


634 

DB 

B3+B0H 

« 80 

HOME key 


0120' 

20 


633 

DB 

SPACE 

1 81 

SPACE bar 


0121' 

1A 


636 

DB 

6UB_ 

f B2 

Z 


0122' 

IB 


637 

DB 

CAN 

l 83 

X 


0123' 

03 


63B 

DB 

ETX 

J 84 

C 


0124' 

16 


639 

DB 

BYN 

1 83 

V 


0123' 

02 


660 

DB 

BTX 

1 86 

B 


0126' 

OE 


661 

DB 

B0_ 

1 87 

N 


0127' 

OD 


662 

DB 

CR 

1 88 

M 

t 

012B ' 

FF 


663 

DB 

-1 

1 89 

. / ( 


0129' 

FF 


664 

DB 

-1 

• 90 

PRINT key 


012A ' 

FF 


663 

DB 

-1 

1 91 

. / 1 


012B ' 

FF 


666 

DB 

-l 

1 92 

/ / 7 


012C ' 

FF 


667 

DB 

-1 

i 93 

(not implemented! 


012D ' 

E9 

V 

66B 

DB 

103+80H 

1 94 

DELete key (duplicate of 481 

r 

012E ' 

E6 


669 

DB 

102+80H 

1 93 

INSert key (duplicate of 47! 


012F ' 

D2 


670 

DB 

B2+80H 

l 96 

Cursor DOWN key 


0130' 

FF 


671 

DB 

-1 

1 97 

(not implemented! 


0131 ' 

FF 


672 

DB 

-1 

1 98 

(not implemented! 



"\ 
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0132 ' 

FF 

673 

DB 

. -1 

0133' 

FF 

674 

DB 

-1 

0134' 

BA 

679 

DB 

98 •♦•BOH 

0139' 

BB 

676 

DB 

99+BOH 

0136' 

BC 

677 

DB 

60+B0H 

0137' 

BD 

678 

DB 

61 +B0H 


679 

680 


681 i ALTERNATE Mod* tab la 

682 i 'U+80H' i« to ba 

683 i 


0138' 



684 

KB ALT LABEL 

BYTE 

0138' 

C8 


689 

DB 

72+B0H 

0139' 

C9 


686 

DB 

73+B0H 

013A ' 

CA 


687 

DB 

74+BOH 

013B ' 

CB 


688 

DB 

79+80H 

013C ' 

CC 


689 

DB 

76+B0H 

013D ' 

CD 


690 

DB 

77+BOH 

013E ' 

F9 


691 

DB 

121 +80H 

013F ' 

FA 


692 

DB 

122+BOH 

0140' 

D4 


693 

DB 

84+80H 

0141 ' 

D9 


694 

DB 

B9+BOH 

0142' 

D6 


699 

DB 

86+80H 

0143' 

D7 


696 

DB 

87+BOH 

0144' 

D8 


697 

DB 

BB+BOH 

0149' 

D9 


698 

DB 

B9+B0H 

0146' 

DA 


699 

DB 

90+B0H 

0147' 

DB 


700 

DB 

91+BOH 

0148' 

DC 


701 

DB 

92+80H 

0149' 

DD 


702 

DB 

93+B0H 

014A ' 

DE 


703 

DB 

94+BOH 

014B ' 

DF 


704 

DB 

99+80H 

014C ' 

FF 


709 

DB 

-1 

014D ' 

FF 


706 

DB 

-1 

014E ' 

El 


707 

DB 

97+80H 

014F ' 

E2 


708 

DB 

9B+B0H 

0190' 

E3 


709 

DB 

99+80H 

0191' 

E4 


710 

DB 

100+B0H 

0192' 

FF 


711 

DB 

-1 

0193' 

FF 


712 

DB 

-1 

0194' 

FF 


713 

DB 

-1 

0199' 

FF 


714 

DB 

-1 

0196' 

FF 


719 

DB 

-1 

0197' 

FF 


716 

DB 

-1 

01 9B ' 

FF 


717 

DB 

-1 

0199' 

FF 


718 

DB 

-1 

01 9A ' 

FF 


719 

DB 

-1 

01 9B' 

FF 

V. 

720 

DB 

-1 

01 9C' 

FF 


721 

DB 

-1 

01 9D' 

FF 


722 

DB 

-1 

019E ' 

FF 


723 

DB 

-1 

01 5F' 

FF 


724 

DB 

-1 


) 
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i 99 (not implemented) 

i 100 BREAK/P AUBE key 
i 101 FI key 

« 102 F2 k ay 

» 103 F3 kay 

i 104 F4 key 


Nota that tha valua 'xx' in kays defined ai 
u«ed ai an index into KBFUNC for tha actual value. 

i Key # Legend 
I 01 F9 kay 

i 02 F6 kay 

i 03 F7 kay 

I 04 FB kay 

i 09 F9 kay 

I 06 F10 kay 

i 07 Fll kay 

i 08 F12 kay 

• 09 1 / ! 

i 10 2 / t 

i 11 3 / # 

i 12 4 / * 

l 13 9 / X 

i 14 6 / a 

I 19 7 / & 

I 16 8 / » 

■ i 17 9 / ( 

l 18 O / ) 

l 19 - / 

I 20 • / + 

I 21 BACK SPACE key 

i 22 % / 

i 23 NUM - (numeric pad I 

I 24 NUM + 

i 29 NUM SPACE kay 

i 26 NUM TAB key 

I 27 NUM 1 v 

i 28 (not implemented) 

i 29 NUM O \ 

i 30 NUM ENTER kay 

i 31 NUM 4 

I 32 NUM 9 

I 33 NUM 9 

l 34 NUM - 

i 39 NUM 2 

i 36 (not implemented) 

i 37 (not implemented) 

i 38 (not imp lamantad) 

i 39 NUM 7 

i 40 NUM 8 
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0160 ' 

FF 


723 

DB 

-1 

1 41 

NUM 6 


0161 ' 

FF 


726 

DB 

-1 

I 42 

NUM , 


0163 ' 

FF 


727 

DB 

-1 

I 43 

NUM 3 


0163 ' 

FF 


728 

DB 

-1 

l 44 

NUM . 


0164 ' 

FF 


729 

DB 

-1 

i 43 

PRINT keg (duplicate of 901 


0163 ' 

EC 


730 

DB 

10B+80H 

1 46 

Curvor RIGHT keg 


0166 ' 

E7 


731 

DB 

103+B0H 

• 47 

INSert keg 


0167 ' 

EA 


732 

DB 

106+B0H 

1 48 

DELete keg 


016B ' 

FF 


733 

DB 

-1 

f 49 

TAB keg 


0169' 

82 


734 

DB 

02+B0H 

f 30 

Q 


016A ' 

83 


733 

DB 

03+80H 

1 31 

W 


016B ' 

84 


736 

DB 

04+B0H 

i 32 

E 


016C ' 

83 


737 

DB 

03+B0H 

I 33 

R 


0160' 

86 


738 

DB 

06+B0H 

I 34 

T 


016E ' 

87 


739 

DB 

07+B0H 

i 33 

Y 


016F ' 

BS 


740 

DB 

08+B0H 

l 36 

U 


0170' 

89 


741 

DB 

09+B0H 

l 37 

I 


0171' 

BA 


742 

DB 

10+80H 

1 58 

0 


0172' 

BB 


743 

DB 

U+BOH 

1 59 

P 


0173' 

FF 


744 

DB 

-1 

l 60 

c / < 


0174' 

FF 


743 

DB 

-1 

l 61 

3 / > 


0173' 

AB 


746 

DB 

43+BOH 

l 62 

LINE FEED keg 


0176' 

FF 


747 

DB 

-1 

l 63 

BREAK/PAU6E keg (duplicate of 100) 


0177' 

AB 


748 

DB 

40+80H 

1 64 

Cureor UP keg 


0178' 

FF 


749 

DB 

-1 

l 63 

ESC keg 


0179' 

8C 


730 

DB 

12+80H 

1 66 

A 


017A ' 

80 


731 

DB 

13+80H 

l 67 

8 


017B ' 

BE 


732 

DB 

14+B0H 

1 68 

0 

I 

017C ' 

BF 


733 

DB 

1 3+80H 

• 69 

F 


0170' 

90 


734 

DB 

16+80H 

1 70 

0 


017E ' 

91 


733 

DB 

17+BOH 

1 71 

H 

1 

017F ' 

92 


736 

DB 

18+80H 

• 72 

J 


01 BO ' 

93 


737 

DB 

19+BOH 

I 73 

K 


0181 ' 

94 


738 

DB 

20+80H 

• 74 

L 


0182' 

FF 


739 

DB 

-1 

1 73 

i / : 


0183' 

FF 


760 

DB 

-1 

1 76 

' / M 

\ 

i 

0184' 

FF 


761 

DB 

-1 

i 77 

RETURN keg 

1 

0183' 

FF 


762 

DB 

-1 

l 78 

\ / 1 


0186' 

EB 


763 

DB 

107+B0H 

l 79 

Cureor LEFT keg 


0187' 

ED 


764 

DB 

109+B0H 

l 80 

HOME keg 


0188' 

20 


763 

DB 

SPACE 

l 81 

SPACE bar 


01B9 ' 

93 


766 

DB 

21+80H 

1 82 

Z 

{ 

01BA ' 

96 


767 

DB 

22+80H 

l 83 

X 


0188' 

97 


768 

DB 

23+B0H 

« 84 

C 


018C ' 

98 


769 

DB 

24+BOH 

1 83 

V 


0180' 

99 


770 

DB 

25+B0H 

l 86 

B 


01 BE ' 

9A 


771 

DB 

26+B0H 

l 87 

N 


O10F ' 

9B 

V 

772 

DB 

27+B0H 

f 88 

h 

\ 

0190' 

FF 


773 

DB 

-1 

1 89 

• / ( 


0191 ' 

FF 


774 

DB 

-1 

1 90 

PRINT keg 


0192' 

FF 


773 

DB 

-1 

1 91 

. / > 

( 

0193' 

FF 


776 

DB 

-1 

l 92 

/ / 7 
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0194 ' 

FF 


777 

DB 

-1 

l 93 

(not Implemented) 

0190 ' 

EA 


778 

DB 

106+B0H 

l 94 

OEL.t. k.g < dup 1 lc.t. of 48) 

0196 ' 

E7 


779 

DB 

103+B0H 

l 90 

INSert key (duplicate of 47) 

0197' 

AD 


780 

DB 

40+BOH 

« 96 

Cur tor DOWN key 

0198' 

FF 


781 

DB 

-1 

1 97 

(not Implemented) 

0199' 

FF 


782 

DB 

-1 

1 98 

(not Implemented) 

019A ' 

FF 


783 

DB 

-1 

1 99 

(not Implemented) 

019B ' 

FF 


784 

DB 

-1 

l 100 

BREAK/P AUBE key 

019C ' 

C4 


780 

DB 

6B+80H 

1 101 

FI key 

019D ' 

CO 


786 

DB 

69+BOH 

1 102 

F2 key 

019E ' 

C6 


787 

DB 

70+BOH 

i 103 

F3 key 

019F ' 

C7 


788 

DB 

71+80H 

l 104 

F4 key 




/DT 1 








790 1 





t 



791 I 

FUNCTION 

key lookup table - If the 

value In the normal table It 




792 l 

greater than 7FH but 

lett than OFCH. the lower 7 bite of the 




793 l 

byte 

It uted at an Index Into thle table to find the actual 




794 l 

function value. 






790 i 





01A0 ' 



796 KBFUNC LABEL 

BYTE 

i TABLE 

OFFSET: 

01A0 ' 

03 


797 

DB 

KB NUL 

i 0 


01A1 ' 

OF 


798 

DB 

KBBKTB 

l 1 


01A2 ' 

10 


799 

DB 

KB ALTO 

i 2 


01A3 ' 

11 


800 

DB 

KBALTW 

I 3 


01A4 ' 

12 


801 

DB 

KBALTE 

l 4 


01 AO ' 

13 


802 

DB 

KBALTR 

I 0 


01 A6 ' 

14 


803 

DB 

KBALTT 

l 6 


01 A7' 

10 


804 

DB 

KBALTY 

l 7 


01 A8' 

16 


800 

DB 

KBALTU 

I 8 


01 A9' 

17 


806 

DB 

KB ALT I 

l 9 


01 AA' 

18 


807 

DB 

KBALTO 

I 10 


01AB ' 

19 


808 

DB 

KBALTP 

l 11 


OtAC ' 

IE 


B09 

DB 

KBALTA 

l 12 


01 AD' 

IF 


810 

DB 

KBALTO 

f 13 


01 AE' 

20 


811 

DB 

KBALTD 

f 14 


01 AF' 

21 


B12 

DB 

KBALTF 

l 10 


01B0 ' 

22 


813 

DB 

KBALTO 

f 16 


OlBl ' 

23 


814 

DB 

KBALTH 

l 17 


01B2 ' 

24 


810 

DB 

KB ALT J 

l 18 


01B3 ' 

20 


816 

DB 

KBALTK 

l 19 


01B4 ' 

26 


817 

DB 

KBALTL 

I 20 


01 BO ' 

2C 


818 

DB 

KBALTZ 

i 21 


01B6 ' 

2D 


819 

DB 

KBALTX 

1 22 


01B7 ' 

2E 


820 

DB 

KBALTC 

l 23 


01BB ' 

2F 


821 

DB 

KBALTV 

I 24 


01B9 ' 

30 


822 

DB 

KBALTB 

l 20 


01BA ' 

31 


823 

DB 

KBALTN 

t 26 


01BB ' 

32 

v. 

824 

DB 

KBALTM 

I 27 


01BC ' 

3B 


820 

DB 

KB_F1 

l 28 


01BD ' 

3C 


826 

DB 

KB _F2 

1 29 


01BE ' 

3D 


827 

DB 

KB F3 

1 30 


01BF ' 

3E 


828 

DB 

KB F4 

i 31 
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01C0' 

3F 


829 

DB 

KB_F3 

i 32 

01C1 ' 

40 


830 

DB 

KB_F6 

l 33 

01C3 9 

41 


831 

DB 

KB_F7 

l 34 

01C3 * 

43 


832 

DB 

KB F8 

1 33 

01C4 9 

43 


833 

DB 

KB F9 

» 36 

01C3 9 

44 


834 

DB 

KB_F10 

1 37 

01C6 # 

47 


833 

DB 

KB_HON 

» 38 

01C7 9 

4B 


836 

DB 

KB_CUP 

1 39 

01CB' 

49 


837 

DB 

KBACUP 

1 40 

01C9 9 

4B 


038 

DB 

KB_CLF 

1 41 

01CA 9 

4D 


839 

DB 

KB_CRT 

l 42 

01CB 9 

4F 


840 

DB 

KBALF 

l 43 

01CC' 

30 


841 

DB 

KB_CDN 

l 44 

01CD 9 

31 


842 

DB 

KBACDN 

l 43 

01CE 9 

32 


843 

DB 

KB_IN8 

l 46 

01CF 9 

33 


844 

DB 

KB DEL 

# 47 

01 DO 9 

34 


843 

DB 

KBSF1 

l 40 

01D1 ' 

33 


846 

DB 

KBSF2 

1 49 

01D3 9 

36 


847 

DB 

KBBF3 

1 30 

01D3 9 

37 


848 

DB 

KBSF4 

i 31 

01D4 9 

38 


849 

DB 

KBBF3 

l 32 

01D3 9 

39 


830 

DB 

KBBF6 

• 33 

01D6 9 

3A 


831 

DB 

KBSF7 

i 34 

01D7 9 

3B 


032 

DB 

KBBFB 

l 33 

01D8 9 

3C 


833 

DB 

KBBF9 

1 36 

01 D9 ' 

3D 


834 

DB 

KBSF10 

f 37 

01 DA 9 

3E 


833 

DB 

KBCF1 

f 38 

01DB # 

3F 


836 

DB 

KBCF2 

l 39 

01 DC 9 

60 


037 

DB 

KBCF3 

« 60 

01DD 9 

61 


83B 

DB 

KBCF4 

1 61 

01DE 9 

62 


039 

DB 

KBCF3 

l 62 

01DF 9 

63 


860 

DB 

KBCF6 

l 63 

01E0' 

64 


861 

DB 

KBCF7 

l 64 

01E1 ' 

63 


862 

DB 

KBCF8 

1 63 

01E2 # 

66 


863 

DB 

KBCF9 

1 66 

01E3' 

67 


B64 

DB 

KBCF10 

1 67 

01E4 ' 

68 


863 

DB 

KBAF1 

l 68 

01E3 9 

69 


866 

DB 

KBAF2 

l 69 

01E6 9 

6A 


867 

DB 

KBAF3 

1 70 

01E7 * 

6B 


868 

DB 

KBAF4 

1 71 

01EB 9 

6C 


869 

DB 

KBAF3 

» 72 

01E9 * 

6D 


870 

DB 

KBAF6 

l 73 

01EA 9 

6E 


871 

DB 

KBAF7 

l 74 

01EB' 

6F 


872 

DB 

KBAF8 

1 73 

01EC 9 

70 

/ 

873 

DB 

KBAF9 

1 76 

01ED 9 

71 

874 

DB 

KBAF10 

1 77 

01EE 9 

72 


873 

DB 

KBPTOL 

1 78 

01EF 0 

73 

V 

876 

DB 

KBCCLF 

1 79 

OlFO 9 

74 


877 

DB 

KBCCRT 

f 80 

OIF 1 § 

73 


878 

DB 

KBCLF 

i 81 

01F3 9 

76 


879 

DB 

KBCCDN 

1 82 

01F3 9 

77 


880 

DB 

KBCHOM 

« 83 
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01F4 9 

78 

881 

DB 

KB ALT 1 

) 84 


01F3 9 

79 

082 

DB 

KBALT2 

i 83 

) 

01F6' 

7A 

803 

DB 

KBALT3 

i 86 


01F7 # 

7B 

884 

DB 

KBALT4 

i 87 


01F8 * 

7C 

803 

DB 

KBALT3 

i 80 

» 

01F9 9 

7D 

806 

DB 

KBALT6 

1 89 

1 

01FA 9 

7E 

887 

DB 

KBALT7 

1 90 


01FB 9 

7F 

888 

DB 

KBALT8 

1 91 

jl 

01FC 9 

80 

889 

DB 

KBALT9 

l 92 


01FD 9 

81 

890 

DB 

KBALTO 

I 93 


OiFE 9 

02 

891 

DB 

KBADSH 

l 94 

) 

01FF 9 

03 

892 

DB 

KBAEOU 

l 93 


0200 ' 

84 

893 

DB 

KBCCUP 

l 96 

\ 

0201 ' 

0C 

894 

DB 

KB_PF1 

l 97 

\ 

0202 / 

8D 

893 

DB 

KB PF2 

f 90 


0203 9 

8E 

896 

DB 

KB_PF3 

1 99 


0204 9 

8F 

B97 

DB 

KB_PF4 

i 100 

) 

0203' 

20 

898 

DB 

KBSINS 

l 101 


0206' 

29 

899 

DB 

KBCIN8 

1 102 


0207 ' 

2A 

900 

DB 

KBA1NS 

l 103 

) 

0200 ' 

38 

901 

DB 

KBSDEL 

i 104 


0209' 

39 

902 

DB 

KBCDEL 

i 103 


020A * 

3A 

903 

DB 

KBADEL 

l 106 


020B ' 

4C 

904 

DB 

KBACLF 

1 107 

! 

020C ' 

4E 

903 

DB 

KBACRT 

1 100 


0200 ' 

03 

906 

DB 

KBAH0I1 

• 109 

) 

020E ' 

06 

907 

DB 

KBSHOM 

i 110 


020F ' 

80 

908 

DB 

KBBCUP 

f 111 


0210 ' 

89 

909 

DB 

KBSCDN 

i 112 

> 

021 1 9 

8A 

910 

DB 

KBSCRT 

I 113 


0212 ' 

8B 

911 

DB 

KBBCLF 

l 114 


0213 ' 

43 

912 

DB 

KB FI 1 

1 113 


0214 ' 

46 

913 

DB 

KB_F12 

i 116 


0213 ' 

00 

914 

DB 

KB8F11 

» 117 


0216 # 

09 

913 

DB 

KBSF12 

l 118 

) 

0217 # 

OA 

916 

DB 

KBCF 1 1 

l 119 


0210 ' 

OB 

917 

DB 

KBCF12 

l 120 


0219 ' 

OC 

918 

DB 

KBAFU 

i 121 

) 

021A # 

OD 

919 

DB 

KBAF12 

1 122 


920 I 

921 I 

922 j 

923 i Table of the NUMeric keys in ascending order according to their legends. 

924 i This table is used by the keyboard D8R to implement the special ALT 

> 923 I NUM-pad function of allowing a 3-digit decimal value to be typed on 

926 f the numeric pad while the ALT key is held down. The resulting value 

927 i passed directly to the DSR caller. 

) v 920 i 



02 IB ' 


929 

KBNUMK LABEL 

BYTE 








021B * 

ID 

930 

DB 

29 

i Bean 

code 

for 

NUMeric 

0 

key 

> 

021C ' 

IB 

931 

DB 

27 

; Be an 

code 

for 

NUMeric 

1 

key 


021D ' 

23 

932 

DB 

33 

I Bean 

code 

for 

NUMeric 

2 

key 




) 
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021E * 

2B 

933 

oaiF' 

IF 

934 

0330 ' 

30 

933 

0331 ' 

39 

936 

0333 * 

37 

937 

0233' 

20 

930 

0324' 

21 

939 



940 



941 


No error* detected 


) 


> 




) 

) 

) 
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DB 

43 

1 

Scan 

code 

for 

NUMeric 

3 

keg 

DB 

31 

l 

Scan 

code 

for 

NUMeric 

4 

keg 

DB 

32 

1 

Scan 

code 

for 

NUMerlc 

3 

keg 

DB 

41 

1 

Scan 

code 

for 

NUMeric 

6 

keg 

DB 

39 

i 

Scan 

code 

for 

NUMeric 

7 

keg 

DB 

40 

f 

Scan 

code 

for 

NUMeric 

0 

l. V 

DB 

33 

1 

Scan 

code 

for 

NUMeric 

9 

k.« 


END 
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1 

1 

2 

TITLE - KEYD8R - Keyboard 

device service routine 

******** 

:> 

3 

A 

COMPUTER - 8088 Assembly Language 


■> 

3 

ABSTRACT - This module contains the keyboard driver logic for the 


6 

7 

Pegasus 

system ROM. 


( 


1 

B 

9 

NAME 

KEYDSR - Keyboard 

device service routine - 



& l 
12 


PUBLIC 

DEFINITIONS 



13 



** 




14 






h 

13 

PUBLIC 

FLUSH 




16 

PUBLIC 

KEY 10 





17 

PUBLIC 

KEVIN 





IB 

PUBLIC 

KEYINI 




> 

19 

PUBLIC 

KEY I SR 




, 

20 

PUBLIC 

KEYOUT 





21 

PUBLIC 

KEYRBT 




\ 

22 

PUBLIC 

KPAUSE 





23 

PUBLIC 

STATUS 





24 






\ 

i 

23 



** 




26 


EXTERNAL 

REFERENCES 



27 



** 



i 

20 







-0000 29 

SECT 

ROMCOD 





30 

EXTRN 

DELAY: NEAR 

l 

1 millisecond delay routine 

(ROMUTL ) 

) 

31 

EXTRN 

PWRUP: FAR 

l 

Keyboard reset causes system restart 

(RESET) 


32 

EXTRN 

BBEEP: NEAR 

I 

System beep routine 

( BELDSR ) 


33 






\ 

-0000 34 

BECT 

ROMCOD 





33 

EXTRN 

KB_ALT: BYTE 

l 

Keyboard Alternate-Mode lookup table 

(KBTABL) 


36 

EXTRN 

KBCTRL: BYTE 

i 

Keyboard Control-Mode lookup table 

(KBTABL) 

> -i 

37 

EXTRN 

KBFUNC : BYTE 

I 

Keyboard Function key lookup table 

(KBTABL) 

i 

38 

EXTRN 

KBNUMK: BYTE 

I 

Keyboard Numeric pad keys table 

(KBTABL) 


39 

EXTRN 

KBSHFT : BYTE 

t 

Keyboard 6hifted-Mode lookup table 

(KBTABL) 

. ) 

40 

EXTRN 

KBUNSH: BYTE 

i 

Keyboard Unshi f ted-Mode lookup table 

(KBTABL) 


41 

I 






-0000 42 

SECT 

ROMDAT 

9 

From the ROM's data area ... 


J 

43 

EXTRN 

CRTHLD: BYTE 

» 

CRT screen hold flag (set by KPAUSE) 

(ROMDAT) 


44 

EXTRN 

ENDQ: WORD 

1 

End of the keyboard type-ahead buff erf ROMDAT) 


43 

EXTRN 

KBMODE: BYTE 

1 

Status byte for Keyboard driver 

(ROMDAT) 

) 

46 

EXTRN 

KBSPSV: WORD 

1 

Keyboard interrupt routine SP save 

(ROMDAT) 


47 

EXTRN 

KB6SSV: WORD 

1 

Keyboard interrupt routine 68 save 

(ROMDAT) 


48 

EXTRN 

KEYISP: WORD 

1 

Keyboard interrupt routine stack 

(ROMDAT) 

r J 

v 49 

EXTRN 

NUMCNT: BYTE 

1 

Count of ALT/NUM keystrokes 

(ROMDAT) 


30 

EXTRN 

NUMVAL: BYTE 

1 

Accumulator for ALT/NUM keystrokes 

(ROMDAT) 


31 

EXTRN 

GDEPTH: BYTE 

I 

Current depth of queue (# chars) 

(ROMDAT) 

*3 

32 

EXTRN 

OFRONT: WORD 

1 

Pointer to 'front' of keyboard buff er (ROMDAT) 


33 

EXTRN 

GREAR: WORD 

I 

Pointer to 'rear' of keyboard buffer 

(ROMDAT) 
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34 

93 i 
96 i 

37 l 

38 I 

39 » 

60 i 

61 I 

62 i 

63 l 

64 i 
63 i 

406 l 

407 I 

408 i 

409 i 

*0000 410 

411 

412 » 

413 f 

414 l 
413 i 

416 l 

417 i 

418 « 

419 I 

420 i 

421 I 

422 I 

423 f 

424 « 
423 f 

426 l 

427 » 

428 • 

429 i 

430 I 

431 i 

432 « 

433 f 

434 I 
433 i 

436 i 

437 i 

438 i 

439 i 

440 i 

v 441 i 

442 f 

443 « 

444 

445 i 
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EXTRN QUEUE: WORD i Beginning of type-ahead buffer CROMDAT) 


LOCAL CONSTANTS 


INCLUDE PEO: PORTADDR. EQU 
INCLUDE PEO: USART. EQU 
INCLUDE PEO: INTCTLR. EQU 
INCLUDE PEO: KBSPCL. EQU 
INCLUDE PEO: KBCMD. EQU 
INCLUDE PEO: KBM I SC. EQU 
INCLUDE PEO: VECTOR. EQU 


CODE SEGMENT DEFINITION 


SECT ROMCOD 
ASSUME CS: ROMCOD 


MODULE ENTRY POINT 


KEYBOARD 'DSR' - KEYIN, STATUS* FLUSH - INT 4 AH 

INPUT: AH * Function (see individual routinei for more detail): 

0 - Read character from keyboard* return in AX 

1 - Get status of keyboard: 

ZF * 1 if no char available 

ZF * O if character available 6 char returned in AX 
(character remains in buffer) 

2 - Read keyboard shift state - returns last valid 

shift mode in register AL: 
bit O * Control key 
bit 1 * Alternate key 
bit 2 * Shift key/s 
bit 7 * Uppercase mode 

3 - Flush keyboard buffer 

4 - Send command character in AL to the keyboard 

ZF * 1 if command accepted OK 
ZF * O if error 

9 - Insert 16-bit character in BX into the keyboard buffer 
(simulate a key being typed) 

ZF * O if key was placed into the buffer 
ZF * 1 if buffer was full (key not placed) 

(BX preserved for retry* but not AH) 

)3 - NULL command 
OUTPUT: as noted above 
USED: AX (BX in 45) 

STACK: 

ASSUME CS : ROMCOD, D3 : NOTH I NO 
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0000 ' 
0000 ' 
0001 ' 
0002 ' 
0007' 
0008' 
OOOB ' 
OOOC' 

OOOF ' 
OOOF ' 
0011' 
0013' 
0013' 
0017' 
0019' 
00 IB ' 
001 D ' 
001F ' 
0021 ' 
0023' 
0023' 
0027' 


0028 ' 
002B ' 
002B ' 
00?: f 
00*^' 
002F ' 
0033' 
0036' 
003A ' 
003E ' 
003F ' 
0040' 


446 I 




447 

KEY_IO 

PROC 

FAR 



FB 


448 


8TI 



ill interrupts back on 

IE 


449 


PUSH 

DB 


ill save user's current DS 

2EBE IE C1B0 

430 


MOV 

DB# MORD 

PTR 

CB: DBADDR+CBWRAP i set up my DB 

FC 


431 


CLD 



i forward strings 

EB 

0004 

432 


CALL 

DO KEY 



IF 


433 


POP 

DB 



CA 

0002 

434 


RET 

2 


i *»• RETURN **» (throw away saved flags) 



433 

l 







436 

DONKEY 

PROC 

NEAR 



08 

E4 

437 


OR 

AH# AH 


l AH - 0 

74 

13 

438 


JZ 

KEYIN 



FE 

CC 

439 


DEC 

AH 


i AH - 1 

74 

2A 

460 


JZ 

STATUS 



FE 

CC 

461 


DEC 

AH 


I AH-2 

74 

47 

462 


JZ 

BHIFTB 



FE 

CC 

463 


DEC 

AH 


l AH - 3 

74 

47 

464 


JZ 

FLUSH 



FE 

CC 

463 


DEC 

AH 


l AH ■ 4 

74 

60 

466 


JZ 

KEYOUT 



FE 

CC 

467 


DEC 

AH 


« AH - 3 

74 

34 

468 


JZ 

KEY1NQ 



C3 


469 


RET 



l INVALID 



470 

1 







471 




»»** 




472 

l KEYBOARD 

INPUT ROUTINE 




473 

« 







474 

• INPUT: 

(none) 





473 

l OUTPUT: 

AX * character 

(waits until one is available) 



476 

« 


(ASCII 

values return in AL with AH»0# 



477 

l 


extended 

functions return with AL»0 and code in AH. ) 



478 

479 

480 

9 

I 

UBED: AX 

STACK: 

Assume csromcod. ds:romdat 




1 — 






482 

KEYIN PROC 

NEAR 



E8 0016 

483 


CALL 

8TATU8 



74 FB 

484 


JZ 

KEYIN 

i Loop til char ready 

FA 

483 


CLI 


1 1 i 

lights out 

36 

486 


PUSH 

BI 

i i i 


8B 36 0013" 

487 


MOV 

SI# QFRONT 

i i » 

Point to current character 

E8 0020 

488 


CALL 

INC Cl 


Permanent ly remove from queue 

89 36 0013" 

489 


MOV 

QFRONT# BI 

1 1 i 

by updating front pointer 

FE OE 0012" 

490 


DEC 

QDEPTH 

1 1 i 

And decrease Char-Malting count 

3E 

491 


POP 

BI 

1 1 i 


FB 

492 


BTI 


i i i 


C3 v 

493 


RET 


i i i 

*** RETURN #e* 


494 

l 






493 

• e 


***************1 

***** 



496 

l 

KEYBOARD STATUS ROUTINE 




497 i 



D 

5 > 

=•) 

'» 

') 


3 

_) 

!) 
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498 

499 

300 

301 
502 
303 

1 

i 

« 

i 

1 

INPUT: 

OUTPUT: 

USED: 

STACK: 

ASSUME 

(none) 

ZF ■ reset (0) if ready* set (1) if not ready 

AX ■ char (remains in buffer) (undefined if KB not ready) 

AX 

CB: ROMCOD* DS: ROMDAT 




Due 

1 




0041 ' 



303 

8TATUB PROC 

NEAR 


0041 ' 

FA 


306 


CLI 

l i i 

raise the shields 

0042' 

36 


307 


PUSH 

81 


0043' 

BB 

36 0013" 

308 


MOV 

81. QFRONT 


0047' 

3B 

36 0014" 

309 


CMP 

SI.QREAR II j 

0: Anything in queue ? 

004B ' 

74 

06 

310 


JZ 

ST 1 ill 

N: return not-ready status 

0040' 

EB 

0006 

311 


CALL 

INCO 


0030' 

AD 


312 


LODS 

QUEUE « i i 

Y: get the char 

0031 ' 

09 

F6 

313 


OR 

61*81 ill 

Reset the xero flag 

0033' 



314 

8T1 




0033' 

3E 


313 


POP 

SI 


0034' 

FB 


516 


ST I 

i i i 


0033' 

C3 


317 


RET 

l i l 

*** RETURN *** 




518 

| 







319 

| 

INCO - increment queue pointer 

(assumes interrupts are disabled) 

0036' 



320 

INCG: 

l l l 

increment queue pointer 

0036' 

46 


321 


INC 

SI 


0037 ' 

46 


322 


INC 

81 


0038' 

81 

FE OOOB" 

323 


CMP 

81. OFFSET ENDQ III 

0: exceeded length of queue ? 

003C ' 

72 

03 

324 


JB 

101 ill 

N: quit 

003E ' 

BE 

0013" 

323 


MOV 

81 .OFFSET QUEUE ill 

Y: wrap around to front 

0061 ' 



326 

101 




0061 ' 

C3 


327 


RET 

l i I 

*** RETURN *** 




328 

l 







329 

i **< 







330 

l 

READ KEYBOARD SHIFT STATUS 





331 

I 







332 

i 

INPUT: 

(none ) 





333 

I 

OUTPUT: 

AL ■ copy of keyboard mode byte 




334 

I 

USED: 

AL 





333 

i 

STACK: 






336 


ASSUME 

CB: ROMCOD. DS: ROMDAT 





DJ/ 

i " 




0062' 



338 

SHIFTS PROC 

NEAR 


0062' 

AO 

OOOC" 

339 


MOV 

AL. KBMODE 

I Pick up mode byte 

0063' 

C3 


340 


RET 


I *** RETURN *** 




341 

1 







342 

1 







343 

| 







344 

I 

FLUSH THE KEYBOARD BUFFER 




V 

543 

1 







346 

1 

INPUT: 

(none ) 

* 




347 

1 

OUTPUT: 

(keyboard queue empty) 





548 

1 

USED: 

(none ) 





549 

1 

STACK: 

4 bytes 
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330 ASSUME CS: ROMCODi DS : ROMDAT 

551 i 


0066 ' 





552 

FLUSH 

PROC 

NEAR 


0066 ' 

9C 




553 


PUSHF 


; Save previous interrupt status 

0067 ' 

FA 




554 


CLI 


2 Protect this 

0068 ' 

C7 

06 

0014“ 

0015“ 

555 


MOV 

QREAR* OFFSET QUEUE 

2 * 2 Front * rear 

006E ' 

C7 

06 

0013” 

0015“ 

556 


MOV 

QFRONT , OFFSET QUEUE 

2 * 2 

0074 ' 

C6 

06 

0012" 

00 

557 


MOV 

BYTE PTR QDEPTH* 00 

2*2 Clear the Char-waiting counter 

0079 1 

9D 




558 


POPF 


2 2 2 Restore previous interrupt status 

007A ' 

C3 




559 


RET 


2 2 2 *** RETURN *** 


560 i ***************************************************** ******* >************** 

561 i KEYING - Put the character in BX into the keyboard queue 

562 i 

563 i INPUT: BX * 16-bit character 

564 i OUTPUT: ZF * 0 if character was placed into the buffer 

565 i ZF * 1 if buffer was full (character not placed* in this case) 

566 i USED: AX 

567 i STACK: 

568 ASSUME CS: ROMCOD* DS: ROMDAT 

569 i 


007B ' 


570 

KEYINQ PROC 

NEAR 

007B ' 

56 

571 

PUSH 

SI 

007C ' 

8B C3 

572 

MOV 

AX* BX 

007F ' 

EO 023C 

573 

CALL 

KBFQ 

0081 ' 

5E 

574 

POP 

SI 

0087 ' 

C3 

575 

RET 



576 ; ******** ********************************************************************** 

577 i 

578 i KEYOUT - Keyboard output routine - used to send commands to the keyboard. 

579 2 To use* place the command in register AL. The command is not; range- 

580 i checked* so be sure to use a valid command. Upon return* check the 

581 2 Z-flag. If it is set < ZF * 1>* then everything happened OK* and the 

582 2 keyboard has accepted and acted upon the command. If the Z-flag is 

583 i reset ( ZF * 0)* then some error has occurred. To see what caused 

584 i the error* look at AL. If AL is OFFH* then the routine timed-out 

585 i while looking for the acknowledge char from the keyboard. If AL is 

586 i OOH* then there was an error on the received character. Otherwise* 

587 i AL has the character returned by the keyboard. 

588 * 

589 i INPUT: AL - code to be sent to keyboard (see PEG: KBCMD. EQU) 

590 2 There is no range-checking on the command 

591 2 OUTPUT: AL * OFEH — > error in received character 

592 * * OFFH — > keyboard did not respond (time out) 

593 2 else — > other error (ROM* RAM* etc.) 

594 2 ZF * 1 if OK (AL will be 70H in this case) 

595 2 ZF * 0 if error (then other reply codes apply) 

596 ; 

597 2 USED: AX 

598 2 STACK: 8 Bytes (including call) 

599 ASSUME DS: ROMDAT 

600 2 

601 2 
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0083 ' 



602 

KEYOUT 

PROC 

NEAR 




0083 ' 

33 


603 


PUSH 

BX 




0084 ' 

31 


604 


PUSH 

CX 




0083 ' 

B9 

0003 

603 


MOV 

CX. 3 


i 

Number of retries 

0088' 

8A 

D8 

606 


MOV 

BL. AL 


I 

Save keyboard command 

OOBA' 

FA 


607 


CLI 



i 

Protect this 

008B ' 

E4 

19 

608 


IN 

ALi INTAOi 




008D ' 

OC 

80 

609 


OR 

AL# NOT ENAB7 


l 

Mask off the keyboard interrupt 

OOBF' 

E6 

19 

610 


OUT 

INTAOI# AL 




0091 ' 

FB 


611 


STI 





0092' 



612 

KOLOOP: 






0092' 

E4 

10 

613 


IN 

AL. KBDAT 


i 

Read any pending char < lc throw away) 

0094' 

BO 

33 

614 


MOV 

AL* CUC ERR + 

UC_TXE + UC_RXE + UCJRTB) 

0096' 

E6 

11 

613 


OUT 

KBCMD. AL 


i 

Reset any USART errors 

0098' 

D30A 

616 


AAD 



i 

Delay for the USART write-write 

009A ' 

BA 

C3 

617 


MOV 

AL. BL 


i 

Get the keyboard command back 

009C ' 

E6 

lO 

618 


OUT 

KBDAT. AL 


I 

Put it in the transmit register 




619 

l 









620 

i Simple timeout loop to keep from locking up if US ART is bad 




621 

i 






009E ' 

31 


622 


PUSH 

CX 




009F ' 

31 

C9 

623 


XOR 

CX.CX 


l 

Set up CX for about 1/3 second 

OOA1 ' 

B4 

03 

624 


MOV 

AH. 3 


i 

and AH for about 3*11/3) • 1.6 sec 

00A3 ' 



623 

KOO: 






00A3 ' 

E4 

11 

626 


IN 

AL# KBSTA 


f 


00A3 ' 

AB 

01 

627 


TEST 

AL. UB_TXR 


i 

Q: through transmitting 7 

00A7 ' 

El 

FA 

628 


LOOPZ 

KOO 


i 

N: loop til done OR timeout 

00A9 ' 

73 

04 

629 


JNZ 

KOI 


i 

Y: continue 

OOAB ' 

FE 

CC 

630 


DEC 

AH 


i 

decrement outer loop counter 

OOAD ' 

73 

F4 

631 


JNZ 

KOO 


i 

Cfall thru if timeout) 

OOAF ' 



632 

KOI: 






OOAF ' 

39 


633 


POP 

CX 







634 

i 






OOBO' 

BO 

24 

633 


MOV 

AL. <UC_RXE + 

UC_RTB) i 

Y: turn transmitter off again 

00B2 ' 

E6 

11 

636 


OUT 

KBCMD. AL 




00B4 ' 

B4 

64 

637 


MOV 

AH. 100 


f 

Allow the keyboard up to 100 msec 

00B6 ' 



638 

K02: 




I 

to respond to the commmand 

00B6 ' 

E4 

11 

639 


IN 

AL# KBSTA 


l 

Get USART status 

OOBB ' 

A8 

02 

640 


TEST 

AL.US_RXR 


i 

Q: character received from keyboard 

OOBA' 

73 

OF 

641 


JNZ 

K03 


i 

Y: continue 

OOBC ' 

31 


642 


PUSH 

CX 


f 

N: Delay for 1 msec 

OOBD ' 

B9 

0126 

643 


MOV 

CX. 294 


i 

Value for 1 msec delay 

OOCO' 

E2 

FE 

644 


LOOP 

* 


i 

(17 * .2 usee • 294) - 999.6 usee 

00C2 ' 

39 


643 


POP 

CX 




00C3 ' 

FE 

CC 

646 


DEC 

AH 


i 

0: timed out yet 7 

00C3 ' 

73 

EF 

647 


JNZ 

K02 


i 

N: loop again 

OOC7 ' 

BO 

FF 

648 


MOV 

AL. OF FH 


i 

Y: set up for 'timeout' error 

00C9 ' 

EB 

1A * 

649 


JMP 

SHORT KO_ERR 


i 

Report it 

OOCB ' 



630 

K03: 






OOCB ' 

AB 

38 

631 


TEST 

AL. CU8_FE + USJDE 

•f US_PE) i 0: ang receiver errors 7 

OOCD ' 

73 

OE 

632 


JNZ 

KOJBAD 


i 

Y: return the error 

OOCF ' 

E4 

10 

633 


IN 

AL. KBDAT 


« 

N: get the char (6 reset interrupt 
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OODI ' 

3C 

70 

634 


CNP 

AL. KB OK 


i 

Q: was it OK status 7 

00D3 ' 

74 

12 

633 


JZ 

KO_END 


» 

Y: return with sero flag set 

00D3 ' 

A8 

FF 

636 


TEST 

AL. OFFH 


< 

Q: is it tero for some reason 7 

OOD7 ' 

73 

OC 

637 


JNZ 

KO_ERR 


i 

N: take normal error exit 

00D9 ' 

FE 

CO 

638 


INC 

AL 


i 

Y: Then insure non-sero 

OODB ' 

EB 

08 

639 


JHP 

SHORT KOJERR 


i 

and take normal error exit 




660 

« 






OODD' 



661 

K0_ 

BAD: 





OODD ' 

E4 

10 

662 


IN 

AL. KBDAT 


« 

Reset any pending interrupt 

OODF ' 

BO 

34 

663 


NOV 

AL. (UC JERR ♦ UC _RXE ♦ 

S 

H 

CD 

OOEI ' 

E6 

11 

664 


OUT 

KBCND. AL 


1 

Reset any UBART errors 

00E3 ' 

BO 

FE 

663 


NOV 

AL. OFEH 


1 

Bet up error code (receive error! 

00E3 ' 



666 

KO_ 

JERR: 





OOE3 ' 

08 

CO 

667 


OR 

AL. AL 


1 

Reset sero 'flag (error! 

00E7 ' 



668 

K0_ 

Q 

Z 





00E7' 

EO 

A9 

669 


LOOPNZ 

KOLOOP 1 

Loop 

if 

((ERROR! .AND. (RETR1E8 . OT. 0!! 




670 

f 






OOE9 ' 

30 


671 


PUSH 

AX 


1 

Save error status 

OOEA ' 

9C 


672 


PUSHF 



1 

and flag 

OOEB ' 

FA 


673 


CLI 



1 

Protect this 

OOEC ' 

E4 

19 

674 


IN 

AL. INTA01 




OOEE ' 

24 

7F 

673 


AND 

AL. ENAB7 


1 

Reenable keyboard interrupt 

OOFO ' 

E6 

19 

676 


OUT 

INTA01. AL 




00F2 ' 

9D 


. 677' 


POPF 



1 

Restore error flag (and interrupts! 

00F3' 

38 


678 


POP 

AX 







679 

l 






00F4 ' 

39 


680 


POP 

CX 




OOFS ' 

3B 


681 


POP 

BX 




00F6 ' 

C3 


682 


RET 



1 

**• RETURN •** 




683 

i ei 



«*•« 

«»• 





684 

l 

KEYBOARD INITIALIZATION LOQIC 

- resets keyboard and sets up local storage 




683 

i 

This routine assumes that 

the 

Interrupt controller# U8ART# and the 




686 

l 

interrupt vector have already 

been initialised. 




687 

l 









688 

i 

INPUT: D8 

- RONOAT 







689 

l 

OUTPUT: (keyboard queue empty! 







690 

l 

USED: (non. I 







691 

l 

STACK: 6 

bytes 







692 

t 0*1 


A88UNE CB 

: RONCOD. D8: RONDAT 







Or *3 

l — 






00F7 ' 



694 

KEY INI PROC 

NEAR 




00F7 ' 

EB 

FF6C 

693 


CALL 

FLUSH 


i 

Initialise the queue 

OOF A' 

30 

CO 

696 


XOR 

AL. AL 


i 

Clear a reg 

OOFC ' 

A2 

OOOC" 

697 


NOV 

KBNODE. AL 


i 

Init mode/status byte 

OOFF ' 

A2 

0011- 

698 


NOV 

NUMVAL. AL 


i 

Init ALT/NUN stuff 

0102 ' 

A2 

0010- 

699 


MOV 

NUNC NT. AL 




0103 ' 

E4 

10 

700 


IN 

AL. KBDAT 


i 

Read revr to reset any interrupt 

0107' 

BO 

34 v 

701 


NOV 

AL, (UC JERR + UC_RXE ♦ 

uc_ 

RTS! 

0109' 

E6 

11 

702 


OUT 

KBCND, AL 


I 

Reset any possible errors 

OIOB' 

C3 


703 


RET 



1 

**» RETURN **• 




704 

l 









703 

i s< 



*»*« 

fees 



/ \ 
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010C' 
OlOC' 00 
OlOD ' OO 
OiOE ' 00 

OIOF ' 69 

OHO' 7F 

our so 

0112 ' 


0112' BE 010C- 
0113' B9 0006 
0118' BA 0011 


2EAC 

EE 

E2 FB 


0120' C3 


KEYRBT - Keyboard UBART init ial i zation routine 

INPUT: (none) 

OUTPUT: (none) 


USED: 

STACK: 


AX, C)i, DX, SI 
2 bytes 


ASSUME D8: ROMDAT 


Table of bytes to send to USART for reset 


KRTABL LABEL 
DB 
DB 
DB 
DB 
DB 
DB 

KRTEND LABEL 

KRTLEN EOU 

l 

i The routine 

i 

KEYRST PROC 
MOV 
MOV 
MOV 


OOH l Null command 

OOH l Null command 

OOH l Null command 

(UC_IRB «■ UC_TXE ♦ UC_RXE ♦ UC_RTB) i Internal reset 

7FH i MODE-8 data bits* even parity* 1 stop bit* 64X clock) 

(UC_ERR + UC_RTS ) i Reset any errors 

BYTE 

KRTEND-KRTABL i Length of table 

itself 


NEAR 

81. OFFSET KRTABL 
CX, OFFSET KRTLEN 
DXi KBCMD 

CB: BYTE PTR CBI3 

DX , AL 

KR1 


f Point to table of reset commands 
l Length of table to CX 
i Set up command port I/O address 

> Pick up the command byte 12 

i Send it to the command port 8 

i 'Til they're all done 17 


l *#* RETURN **# 


27 

( * 3.4 usee) 


KPAUSE - Keyboard default pause key handler. Sets the CRTHLD (CRT hold) 
flag when the pause key is struck In order to freeze the screen. 

Note that striking any other key (including the PAUSE key) will 
restart the CRT. 

INPUT: none 

OUTPUT: (CRT hold flag set 
USED: none 

STACK: 8 bytes 

ABSUME D9: ROMDAT 


0121 ' 




731 

KPAUSE PROC 

FAR i (Interrupt Call) 




0121 ' 

IE 



732 

PUSH 

DS 




0122' 

2E8E 

IE C 180' 

733 

MOV 

DS* WORD PTR C8: D9ADDR+CBWRAP 

1 

Point to my D8 


0127' 

F6 06 

000 A M 

FF 

734 

TEST 

CRTHLD, OFFH 

1 

0: Is the flag already 

set 7 

012C ' 

C6 06 

OOOA- 

FF 

733 

MOV 

CRTHLD, -1 

i 

(pre)Set the flag 


0131' 

74 03 



736 

JZ 

KP1 

1 

N: Then it should be 

set 

0133' 

C6 06 

000 A“ 

00 

737 

MOV 

CRTHLD, 00 

l 

Y: Then it should be 

reset 
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3 

0138' 
0138 ' 

1 0139 ' 

013A ' 
013B ' 






0 




*(V 


n 


o 


IF 

FB 

F9 

CA 0002 


. 

013E ' 
013E ' 

IE 


013F ' 

2EBE IE C180 

o 

0144' 

BC 16 000E M 


0148' 

89 26 OOOD- 

o 

014C ' 

BC DC 

014E ' 

BE D4 * 


0150' 

BC 000F M 

o 

0153' 

2EFE 06 C19A 

0158' 

50 


0159' 

53 


758 KP1: 


759 POP D8 

760 8TI I Interrupts back on 

761 BTC i Set carry so no code is sent 

762 RET 2 l Simulated 1RET 

763 i 

764 i »**ee«»*e*eee*e*******s##*s****e»*#*****»*e***se#**e****e#*e****s*******e**e*e 

765 i 

766 f KEYBOARD INTERRUPT HANDLER (no regs used) - responsible for all keyboard 

767 i encoding functions. 

768 i 

769 i * 

770 i The information received from the keyboard is formatted as follows: 

771 i 

772 i 

773 i I7I6I5I4I3I2I 1 101 F1RBT BYTE ('mode' byte) 

774 i (not always sent) 

775 i I I I I I I I I 

776 i I I I I I I I ) Control 

777 i I I I I I I I 

778 i I I I I I I ) Alternate 

779 i I I I I I I 

780 i I I I I I ) Bhift 

781 I I I I I I 

782 i I ) ■ till (denotes 1st byte) 

783 i I ' 'C? 

784 i ) Uppercase 


785 

786 

787 

788 


789 i I7I6I5I4I3I2I 1 101 SECOND BYTE ('scan' byte) 

790 i 

791 « I I I I I I I I 

792 « I I I I I I I I 

793 i I ) Scan code 

794 • I 

795 i — ) Repeated code (typamatic) 

796 i 

797 ASSUME CB: ROMCOD, D8: ROMDAT 

798 • 


799 

KEY I SR PROC 

FAR 



800 

PUSH 

DS 

1 f l 

save current DS 

801 

MOV 

DB.WORD PTR 

CS: DSADDR+CBURAP ill set up my DS 

802 

MOV 

KBSSSV, 88 

i f i 

save user's SB, SP 

803 

MOV 

KBSPBV, BP 

» I I 


B04 

MOV 

6P* DS 

i i I 

(Use SP as temp reg) 

B05 

MOV 

SS* SP 

« » i 

Local stack segment " DB 

806 

MOV 

SP, OFFSET KEYISP n 

i Bet up local stack 

807 

INC 

BYTE PTR C8: 

INTCTR+CSWRAP i i i Bump the interrupt counter 

808 

PUSH 

AX 



809 

PUSH 

BX 

i » i 

Save commonly used registers on the stack 



0000 

p p p p p p 

FF 



DD 

-1 

0004 

8000 




DW 

8000b 

0006 .. 

0058 R 




DW 

OFFSET init 

0008 

006C R 




DW 

OFFSET do i o 

000 A 

47 45 54 
20 20 

4F 

46 53 


D8 

* GETOFS ' 

0012 

0000 



buf base 

DW 

0 

0014 

0000 



buf of s 

DW 

0 

0016 

0000 



i ntbase 

DW 

0 

0018 

0000 



i ntof s 

DW 

0 

001 A 

00 



crow 

DB 

0 

0018 

00 



ccol 

DB 

0 

001C 

28 [ 

00 

3 


DB 

40 DUP(O) 

0044 

00 



stack 

D8 

0 

0045 

47 65 74 

6F 

66 73 

starttx 

t DB 

’Getofs loaded X ’ ,13,10, * $ ’ 




p-HOU .a, CE 

0 ^ 
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) 

) 

> 

i 

> 

i 

> 

i 

) 

) 

j 

) 

> 

) 

) 


01 9A ' 

06 




810 


PUSH 






811 

1 


01 9B ' 

91 




812 


PUSH 

01 9C ' 

97 




813 


PUSH 

019D' 

96 




814 


PUSH 

019E' 

E4 

11 



819 


IN 

0160' 

A8 

02 



816 


TEST 

0162' 

74 

IF 



817 


JZ 

0164' 

A8 

38 



818 


TEST 

0166' 

BO 

34 



819 


MOV 

0168' 

E6 

11 



820 


OUT 

016A ' 

79 

17 



821 


JNZ 

0I6C ' 

E4 

10 



822 


IN 

016E ' 

FB 




823 


8TI 

016F ' 

BA 

EO 



824 


MOV 

0171 ' 

24 

78 



829 


AND 

0173' 

3C 

78 



826 


CMP 

0179' 

79 

OF 



827 


JNE 

0177' 

80 

E4 

87 


828 


AND 

017A ' 

80 

26 

oooc- 

78 

829 


AND 

017F ' 

08 

26 

C DC- 


830 


OR 

0183' 





831 

KBXT88: 


0183' 

E9 

0127 


832 


JMP 

0186' 





833 

KBIO: 


0186' 

BA 

C4 



834 


MOV 

01BB ' 

80 

E4 

7F 


839 


AND 

018B ' 

80 

FC 

68 


836 


CMP 

01BE ' 

77 

F3 



837 


JA 

0190' 

3C 

OO 



838 


CMP 

0192' 

74 

EF 



839 


JE 

0194' 

3C 

30 



840 


CMP 

0196' 

74 

04 



841 


JE 

0198' 

3C 

9E 



842 


CMP 

019A ' 

79 

11 



843 


JNE 

019C ' 





844 

KBI1_9: 


0l9C ' 

8A 

26 

OOOC" 


849 


MOV 

01A0 ' 

80 

E4 

03 


846 


AND 

01 A3 ' 

80 

FC 

03 


847 


CMP 

01A6 ' 

79 

09 



848 


JNE 

01 A8 ' 

EA 

0002” 0000" 

849 


JMP 

01 AD ' 





890 

KBI1: 


01 AD ' 

80 

26 

oooc- 

F7 

891 


AND 

01B2 ' 

A8 

80 



892 


TEST 

01B4 ' 

74 

09 



893 


JZ 

01B6 ' 

80 

OE 

oooc- 

08 

894 


OR 

01BB ' 





899 

KBI2: 


01BB ' 

8A 

26 

oooc- 


896 


MOV 

01BF ' 

F9 




897 


BTC 






898 








899 








860 



01C0' 

CD 

9B 



861 


INT 
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ES 

CX 

DI ill Locally used register (don't forget to POP) 

81 

AL.KBBTA in Look at status 

AL.USJRXR in Q: Was it the receiver 7 

KBXTBB ill N: ignore any other (smit or coprocessor) 

AL, (U3_FE «• US_OE + UB_PE) i G: any errors 7 
AL* (UCJERR + UCJ?XE + UC_RTB) 

KBCMD* AL ill (Reset any errors) 

KBXT8S ill Y: ignore the character 

AL* KBDAT ill N: get the char It reset the interrupt 

ill Interrupts OK now 

AH* AL i 8ave the character for a while 

AL. NOT KBMMSK I Mask off the 'mode' field 

AL* NOT KBMMSK i Q: is this a mode byte 7 

KBIO i N: continue 

AH. KBMMSK I Y: Mask off all but the mode bits 

KBMODE* NOT KBMMBK 

KBMODE* AH i Update mode/status byte 

i ( 'KBIX1T ' stepping stone* jmp > 128) 

KB 1 X IT i *** EXIT »*» 


AL* AH 
AH. 07FH 
AH, MAX KEY 
KBXTBB 
AL, 00 
KBXTBS 
AL* DELKEY 
KBI1 9 
AL* ADLKEY 
KBU 


i Get scan code in AL 

i Mask off the typamatic bit 

i Q: scan code too high 7 

i Y: ignore it (what was it, anyway 7) 

i G: is it zero (not allowed) 7 

i Y: ignore it 

i G: Is this the Delete key 7 

i Y: Then check for CTRL/ALT 

i Q: What about the other Delete key 7 

i N: Then keep going 


AH* KBMODE i Y: Get mode/status byte 

AH. ( ALTMBK ♦ CTLMSK) 

AH, (ALTMSK + CTLMSK) i Q: Are CONTROL and ALT depressed also 7 

KB 1 1 i N: Continue 

FAR PWRUP l Y: **# GO DO POWERUP RESET *** 


KBMODE* NOT TYPMSK I Reset the typamatic bit 

AL* TYPBIT i G: Typamatic character (high bit set) 7 

KBI2 i N: Keep going (bit already reset) 

KBMODE, TYPMSK i Y: Then set the typamatic bit in KBMODE 


AH, KBMODE i AL has scan codei AH has mode 

I Bet the carry-flag — If the user encodes the 
i key* he should reset the carry flag before 
i before returningi if the key is to be 
i ignored* return with carry set and AL»OFFH. 
i Q: Does anybody want to take a shot at it 7 


MAPINT 
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01C2 ' 

73 

44 


862 



JNB 

KB IQSS 

01C4 ' 

3C 

FF 


863 



CMP 

AL# -1 

01C6 ' 

74 

BB 


864 



JE 

KBXT8S 





863 

l 








866 

1 

Check for 

ALT-NUM fanciness 





867 

l 




01C8' 

F6 

C4 02 


868 



TEST 

AH. ALTM9K 

OiCB ' 

74 

3E 


869 



JZ 

KBIENC 

OICD' 

OE 



870 



PUSH 

C8 

01CE ' 

07 



071 



POP 

E8 

01CF ' 

BF 

0007- 


072 



MOV 

D I, OFFSET KBNUMK 

01D2 ' 

B9 

OOOA 


873 



MOV 

CX. 10 

0105 ' 

24 

7F 


074 



AND 

AL. NOT TYPBIT 

0ID7 ' 

F2 



873 



REPNE 


0108 ' 

AE 



876 



SCAB 

BYTE PTR EDI 3 

01D9 ' 

73 

30 


877 



JNE 

KBIENC 

01 OB ' 

F6 

06 OOOC" 

08 

878 



TEST 

KBMODE. TYPMBK 

OiEO ' 

73 

A1 


879 



JNZ 

KBXTB9 

01E2 ' 

81 

EF 0007" 


880 



SUB 

DI.0FF8ET KBNUMK 

01E6' 

4F 



881 



DEC 

D1 

01E7 ' 

AO 

0011" 


882 



MOV 

AL. NUMVAL 

01EA' 

B4 

OA 


883 



MOV 

AH. 10 

01EC ' 

F6 

E4 


884 



MUL 

AH 

01EE ' 

01 

FB 


883 



ADD 

AX.DI 

OIFO' 

A2 

0011" 


886 



MOV 

NUMVAL# AL 

01F3 ' 

FE 

06 0010" 


807 



INC 

NUMCNT 

0IF7 ' 

80 

3E 0010" 

03 

888 



CMP 

NUMCNT# 3 i 

01FC ' 

73 

83 


889 



JNZ 

KBXTSS i 

OIFE ' 




890 

KB13: 



oife; f 

B4 

00 


891 



MOV 

AH. 0 i 

0200' 

88 

26 001 1* 


892 



MOV 

NUMVAL. AH i 

0204' 

88 

26 0010" 


893 



MOV 

NUMCNT# AH 

0208' 




894 

KB1GSS: 



0208' 

E9 

U! 

N 

O 

O 


893 



JMP 

KB IQ i 





896 

i 








897 

« 

Normal encoding starts here 





898 

I 




020B ' 




899 

KBIENC; 



020B ' 

86 

06 OOil" 


900 



XCHO 

NUMVAL. AL 

020F ' 

08 

CO 


901 



OR 

AL. AL 

0211 ' 

73 

EB 


902 



JNE 

KB 13 

0213' 

86 

06 0011" 


903 



XCHO 

NUMVAL# AL 

0217' 

FE 

CB 


904 



DEC 

AL 

0219' 

F6 

C4 02 


903 



TEST 

AH. ALTMSK 

021C ' 

BB 

0004" 


906 



MOV 

BX. OFFSET KB_ALT 

021F ' 

73 

13 


907 



JNZ 

KB IMAP 

0221 ' 

F6 

C4 01 


908 



TEST 

AH. CTLMBK 

0224' 

BB 

0003" 

V 

909 



MOV 

BX. OFFSET KBCTRL 

0227' 

73 

OB 


910 



JNZ 

KB I MAP 

0229' 

F6 

C4 04 


911 



TEST 

AH. 8HFMSK 

022C ' 

BB 

0008" 


912 



MOV 

BX. OFFSET KBSHFT 

022F ' 

73 

03 


913 



JNZ 

KB IMAP 


10. 34. 17 


3-Aug-B3 16: 42: 1? 


Page I— 10 


i Y: User encoded key - put It In the queue 
Q: should this kty b« Ignored 7 

Y: go to exit 
N; Encode It 


0: Are we In ALT mode 7 

N: Continue with normal encoding 

Set up E8 to point to tables 
i Y: Point to Numeric keg table 
Table will always contain ten kegs 
Strip off ahg typamatlc bit so Index Is OK 

0: Is this a numeric keg 7 

N: Then skip rest of numeric stuff 
Q: Idas this a typamatlc character 7 

Y: No typamatlcs allowed In ALT/NUM mode 
I N: Get offset Into table 
D1 now has value of keg CO-9) 

Pick up the current value 
and multiply It by 10 

Add In the latest arrival 
... and update that value In memory 
Bump the keystroke counter 
Q: Have there been 3 'ALT/NUM ' keys* yet 7 
N: Ignore this key and go get next one 

Y: Pass scan code of tero 
And clear NUMVAL accumulator for next time 
... also the keystroke counter 
'Stepping stone' for KB1Q CJMP > 12B) 
do put the created character In the queue 


Get the current value of ALT/NUM accumulator 
Q: Is an Incomplete ALT/NUM value waiting 7 

Y: Then send It and blow off this keystroke 
N: Continue normal encoding 
Tables start at 0 not 1# so adjust scan code 
Q: Is this an ALT function 7 

(Point to ALT encoding table) 

Y: go to it 

Q: is this a CONTROL function 7 

(Point to CONTROL encoding table) 

Y: go map it 

Q: Is either SHIFT key down 7 

(point to SHIFT encoding table) 

Y: go map It 
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0231 ' 

BB 

0009" 

914 


MOV 

BX. OFFSET KBUNSHi N: than it mutt b. NORMAL encoding 





913 

1 

JMP 

8H0RT KB IMAP 

i Qo map it 





916 

1 






\ 

917 

f Map 

the character according 

to the table* 





918 

l 





0234' 



919 

KB IMAP: 





0234 ' 

24 

7 F 

920 


AND 

AL. NOT TYPBIT 

i Strip off the typamatic bit 


0236' 

2ED7 

921 


XLAT 

BYTE PTR CS: CBX3 i Map the key according to appropriate 

table 

0238' 

3C 

FF 

922 


CMP 

AL. -1 

i Q: Should thii key be ignored 7 


023A ' 

74 

OD 

923 


JE 

KBX8S1 

i Y: Exit 


023C ' 

3C 

FE 

924 


CMP 

AL. PAUFNC 

i Q: Is this the Program Pause Key code 

7 

023E ' 

73 

OB 

923 


JNE 

KB 14 

i N: Continue 


0240' 

30 

CO 

926 


XOR 

AL. AL 

i Y: Flag this as extended code 

' 

0242' 

B4 

01 

927 


MOV 

AH.KBPPAU . 

i Bet up Program Pause function code 


0244' 

F8 


928 


CLC 


i reset carry flag in preparation 


0240 ' 

CD 

3C 

929 


INT 

PAUINT 

I Call the Pause routine 


0247' 

73 

40 

930 


JNB 

KB IQ 

i If user encoded the key, then put it 

in queue 

0249' 



931 

KBX891: 



j KBIXIT stepping stone # 2 


0249' 

EB 

62 

932 


JMP 

SHORT KB IX IT 

i else exit 


024B ' 



933 

KBI4: 





024B ' 

3C 

FD 

934 


CMP 

AL, PBKFNC 

i Q: Is this the Program Break Key code 

7 

024D ' 

73 

OB 

933 


JNE 

KB 13 

i N: Continue 


024F ' 

30 

CO 

936 


XOR 

AL, AL 

i Y: Flag this as an extended code 


0231 ' 

B4 

00 

937 


MOV 

AH, KBPBRK 

i Set up Program Break function code 


0233' 

F8 


938 


CLC 


i reset carry flag in preparation 


0234' 

CD 

3D 

939 


INT 

PBKINT 

i Call the Break routine 


0236' 

73 

31 

940 


JNB 

KB IQ 

i If user encoded the key, then put it 

in queue 

0238' 

EB 

33 

941 


JMP 

SHORT KB IX IT 

i else exit 


023A ' 



942 

KBI3: 





023A ' 

3C 

FC 

943 


CMP 

AL, PBCFNC 

« Q: Is this the Print Screen Key code 

7 

023C ' 

73 

07 

944 


JNE 

KBI6 

i N: Continue 


023E ' 

F9 


943 


8TC 


i Y: Bet carry flag in preparation 


023F ' 

CD 

3E 

946 


INT 

P8CINT 

i Call the Print Screen routine 


0261' 

73 

26 

947 


JNB 

KB IQ 

i If user encoded the key, then put it 

in queue 

0263' 

EB 

48 

948 


JMP 

SHORT KBIXIT 

i else exit 


0263' 



949 

KBI6: 





0263' 

A8 

80 

930 


TEST 

AL, 80H 

i Q: Should I look in the function key 

table 7 

0267' 

74 

OD 

931 


JZ 

KB 17 

i N: High bit not set so not a function key 

0269 ' 

BB 

0006" 

932 


MOV 

BX. OFFSET KBFUNC i Y: Point to .unction toy table 


026C ' 

24 

7F 

933 


AND 

AL, 7FH 

i Strip off the high bit 


026E ' 

2ED7 

934 


XLAT 

BYTE PTR C8: CBXJ i and pick up the real function key code 

0270' 

8A 

EO 

933 


MOV 

AH. AL 

i Put it in AH 


0272' 

30 

CO 

936 


XOR 

AL. AL 

i and xero into AL 


0274 ' 

EB 

13 

937 


JMP 

SHORT KB IQ 



0276' 



958 

KB 17: 





0276' 

F6 

C4 80 

959 


TEST 

AH, UPCMBK 

i Q: is the UPPERCASE LOCK switch down 

7 

0279' 

B4 

00 

960 


MOV 

AH. 0 

i (Here set up standard ASCII return w/AH«0) 

027B ' 

74 

OC v. 

961 


JZ 

KB IQ 

i N: encoding done, put char in queue 


027D ' 

3C 

61 

962 


CMP 

AL, 'a' 

8 Y: then check for lower case 


027F ' 

72 

08 

963 


JB 

KB IQ 



0281 ' 

3C 

7B 

964 


CMP 

AL, ' I '•♦■I 



0283' 

73 

04 

963 


JNB 

KB IQ 





KEYDBR - Keyboard devici i«rvlc« 

routine 


CRB0B6/11 v 

\ 

era ion 10.34.17 3-Aug-B3 16:42:19 Page 1-12 

KEYDBR.BRC 







1 

0289' 

2C 

20 

966 


BUB 

AL, 20H 

i ... and map to upper 

0287 ' 

EB 

00 

967 


JhP 

SHORT KB IQ 

i put it in the queue 




960 

1 







969 

• Put 

the encoded charact 

er in the queue 




970 

i 




0209 ' 



971 

KB 10: 




0209 ' 

F6 

06 OOOA" FF 

972 


TEST 

CRTHLD. OFFH 

i 0: It the CRT in the hold mode ? 

O20E ' 

74 

09 

973 


JZ 

KB 1 00 

I N: Then continue 

0290' 

C6 

06 000 A** 00 

974 


MOV 

CRTHLD* 00 

i Y: Then reiet the flag and unfreeze CRT 

0299' 



979 

KB 100: 




0299' 

F6 

06 OOOC" OB 

976 


TEST 

KBMODE. TYPM 

5K i 0: Wat thii a typamatic character ? 

029A ' 

74 

09 

977 


JZ 

KBIQ1 

I N: Continue 

029C ' 

00 

3E 00 I 2" 01 

97B 


CNP 

QDEPTH* 1 

i 0: It there more than one character waiting 7 

02 A I ' 

7E 

02 

979 


JLE 

KBIQ1 

i N: Continue 

02A3 ' 

EB 

OB 

900 


JMP 

SHORT KB IX I 

T f Y: Then blow off the typamatic char 

02A9 ' 



901 

KBI01: 



iPut the char into the queue 

02A9 ' 

E8 

0019 

982 


CALL 

KBFO 

i 0: Did the character fit? 

02A8 ' 

79 

03 

983 


JNZ 

KBIX1T 

i Y: exit 

02AA ' 

E8 

0003- 

9B4 


CALL 

BBEEP 

i N: ring bell 

02AD ' 



909 

KB IX IT: 




02AD ' 

9E 


9B6 


POP 

SI 

i Pop iacally-uied regiitert 

02AE ' 

OF 


987 


POP 

DI 


02AF ' 

99 


98B 


POP 

CX 


02B0 ' 

BE 

06 OOOE- 

989 


MOV 

E8# KBBS8V 

« E8 » BB of interrupted code 

02B4 ' 

BB 

IE OOOD- 

990 


MOV 

BX» KBSPBV 

i BX .« BP of interrupted code 

02B8 ' 

2EFF 2E Cl 64 

991 


JMP 

DWORD PTR C 

B: XITVECM+CSWRAP « Take common interrupt exit 




992 








993 

l KBFO - Routine to place 

16-bit character in queue. Called from KEYISR and 




994 

i 

ae opcode 9 to simu 

late the keyboard putting key into queue. 




999 

I 







996 

I INPUT: AX 

• character 

to be placed into queue 




997 

I 

(QREAR ) • (CFRONT 

) 




998 

• OUTPUT: ZF 

- 0 if char 

acter was placed into the buffer 




999 

f 

ZF 

- 1 if buffe 

r mat full (char not placed, remain! AX) 




1000 

l USED: SI* 

(AX if put 1 

nto buffer) 




1001 

l STACK: 



















02BD ' 



1003 

KBFO 

PROC 

NEAR 


02BD ' 

FA 


1004 


CLI 


i Shields up 1 

02BE ' 

BB 

36 0014- 

1009 


MOV 

SI. QREAR 

ill 

02C2 ' 

EB 

FD9I 

1006 


CALL 

INCQ 

i i j Bump queue pointer 

02C9 ' 

3B 

36 0013" 

1007 


CMP 

SI . CFRONT 

ill 0: Any room in the queue 7 

02C9 ' 

74 

to 

1008 


JZ 

KBIQ2 

in N: EXIT | 




1009 




ill Y: put character in queue 1 

02CB ' 

09 

04 

1010 


MOV 

isn.Ax 

i i i Put character in queue 

02CD ' 

B9 

36 0014" 

1011 


MOV 

QREAR, SI 

ill (added at rear of queue) 

0201 ' 

FE 

06 0012" 

1012 


INC 

QDEPTH 

ill Bump char-waiting count 

02D9 ' 

CD 

SF ‘ 

1013 


INT 

QUEINT 

ill Tell the user (057) we just queued a char 

02D7 ' 

3! 

CO 

1014 


XOR 

AX, AX 

i i i 

02D9 ' 

FE 

CO 

1019 


INC 

AL 

i i i Insure Z-f lag reset 

02DB ' 

FB 


1016 

KBIQ2: 

ST I 


ill Shields down 

02DC ' 

C3 


1017 


RET 

> 
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1018 END 

No errors detected 
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1 i e***************************************************************************** 
3 i TITLE - KEYT9T - Keyboard initialization logic 

3 i COMPUTER - B088 Assembly Language 

4 i ABSTRACT - This module contains the potuerup initialization code for the 

3 i keyboard. 

6 i a***************************************************************************** 

7 NAME KEYTST - Keyboard initialization logic 

9 i ***************************** ** e********************************************** 

10 i PUBLIC DEFINITIONS 

11 | v***************************************************************************** 

13 « 

13 PUBLIC KEYTBT 

14 i 

13 i ****************************************************************************** 

16 l EXTERNAL REFERENCES 

17 i ****************************************************************************** 

18 i 

19 EXTRN DSPKER : NEAR i Keyboard error display routine (OUTPUT) 

30 EXTRN KEYINIrNEAR j Keyboard driver ini tial i zation (KEYDSR ) 

31 EXTRN KEYOUT.NEAR I Keyboard output routine (KEYDSR) 

33 EXTRN PUPTS1 : NEAR < Continuation of potuerup test logic (PUPTS1) 

33 i 

34 i Keyboard error codes 
33 i 


26 

EXTRN 

KNIERR: ABS 

i Keyboard 

'not Installed' error code 

(ROMERR) 

27 

EXTRN 

KNRERR : ABS 

i Keyboard 

'no response' error 

code 

(ROMERR) 

2B 

EXTRN 

KRAERR: ABS 

i Keyboard 

'RAM failure' error 

code 

(ROMERR) 

29 

EXTRN 

KRCERR: ABS 

i Keyboard 

'receive error' error code 

(ROMERR) 

30 

EXTRN 

KROERR: ABS 

i Keyboard 

'ROM failure' error 

code 

(ROMERR) 

31 

EXTRN 

KUNERR : ABS 

f Keyboard 

'unknown' error code 


(ROMERR) 


33 i 

33 i ****************************************************************************** 

34 I LOCAL CONSTANTS 

33 i INCLUDE PEO: PORTADDR. EQU 

36 i INCLUDE PEO: VECTOR. EQU 

37 i INCLUDE PEO: INTCTLR. EQU 

38 i INCLUDE PEO: U5ART. EQU 

39 » INCLUDE PEO: KBCMD. EQU 

40 i ****************************************************************************** 
318 i ****************************************************************************** 

219 i CODE SEGMENT DEFINITION 

220 i ****************************************************************************** 

221 i 

-OOOO 223 SECT ROMCOD 

223 ASSUME CB: ROMCOD 

224 < 

223 I ****************************************************************************** 
' 226 i MODULE ENTRY POINT 

227 i ****************************************************************************** 

22B i 

229 

230 i 


ASSUME DS: R0S1DAT 



KEYT9T - Keyboard initial i zatlon 

logic 

CRBO0&/ i 1 van ion 10.34.17 

3-Aug-83 

16:43:4 Page 1-1 

KEYTBT. SRC 









OOOO ' 



231 

KEYTBT 

PROC 

NEAR 






232 

1 





0000' 

2E8E IE C 180 

233 


MOV 

DS* WORD PTR CS: DSADDR+CSWRAP 




234 

l 








233 

i 'KEYRBT ' 

has already been called (from INTT8T1 so that the 




236 

# USART i* 

already set up. 






237 

i 








238 

i 

CALL 

KEYRST 

i 

Init the USART 

0003 ' 

E4 

10 

239 


IN 

AL* KBDAT 

i 

Read RCVR to reset any interrupt 

0007' 

BO 

34 

240 


MOV 

AL. (UC_ERR + 

UC_RXE + UC_ 

RTS) 

0009' 

E6 

11 

241 


OUT 

KBCMD, AL 

i 

Reset any errors 




242 

1 








243 

i Chock for 

keyboard installed (plugged 

in) by looking at transmit 




244 

l signal looped-back through tho DSR pin. Simple toot* juot looks 




243 

i for 

a wiggle* doesn't time it. 





246 

f 





OOOB ' 

E4 

11 

247 


IN 

AL. KBSTA 

s 

Look at USART status 

OOOD ' 

A8 

80 

248 


TEST 

AL* US_DSR 

i 

G: is line idle (pulled low) 

OOOF ' 

73 

19 

249 


JNZ 

KEYNIS 

i 

N: then keyboard isn't there 

0011 ' 

BO 

33 

230 


MOV 

AL* 55H 

f 

This 'command' shouldn't do 

0013' 

E6 

10 

231 


OUT 

KBDAT, AL 

f 

anything to the keyboard 

0013' 

BO 

23 

232 


MOV 

AL* (UC RXE + 

UC_TXE ♦ UC_ 

RTS) 

0017' 

E6 

11 

233 


OUT 

KBCMD, AL 

I 

Enable the transmitter 




234 

i 





0019' 

B4 

03 

233 


MOV 

AH* 3 

i 

If line hasn't wiggled in 3 msec 




236 




I 

then give it up 

001B ' 



237 

KTO: 




- 

001B ' 

E4 

11 

238 


IN 

AL. KBSTA 

i 

Look at DSR (xmitter loopback) 

0010 ' 

A8 

80 

239 


TEST 

AL* US DSR 

I 

Q: Has it gone high ? 

001F ' 

73 

OD 

260 


JNZ 

KT1 

I 

Y: Keyboard there* continue 

0021 ' 

B9 

0126 

261 


MOV 

CX, 294 

l 

N: delay a millisecond 

0024' 

E2 

FE 

262 


LOOP 

• 



0026' 

FE 

CC 

263 


DEC 

AM 

i 

Unbump msec counter 

0020' 

73 

FI 

264 


JNZ 

KTO 

i 

Loop if not timed out 

002A ' 

B4 

03* 

263 

KEYNI8: 

MOV 

AH* KNIERR 

I 

Report keyboard 'Not installed' 

002C ' 

EB 

39 

266 


JMP 

SHORT KEYERR 






267 

» 








268 

f Simple timeout loop to keep from locking up if USART is bad 




269 

i 





002E ' 



270 

KT1 : 





002E ' 

E4 

11 

271 


IN 

AL* KBSTA 

i 

Look at status 

0030' 

A8 

01 

272 


TEST 

AL* US TXR 

i 

Q: through transmitting ? 

0032' 

El 

FA 

273 


LOOPZ 

KT1 

f 

N: loop til done OR timeout 

0034' 

73 

04 

274 


JNZ 

KT2 

i 

Y: continue 

0036' 

FE 

CC 

273 


DEC 

AH 

i 

decrement outer loop counter 

0038' 

73 

F4 

276 


JNZ 

KT1 

i 

(fall thru if timeout) 

» 



277 

f 





003A ' 


\ 

278 

KT2: 





003A ' 

BO 

24 

279 


MOV 

AL* (UC_RXE + 

UC_RTS> 1 

Then shut it off 

003C ' 

E6 

11 

280 


OUT 

KBCMD, AL 






281 

i 





003E ' 

FA 


2B2 


CL I 


s 

Protect this 
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003F ' 

E4 

19 

2B3 


IN 

AL, INTAOI 


0041' 

24 

7F 

2B4 


AND 

AL, ENAB7 

1 

0043' 

E6 

19 

2B9 


OUT 

INTAOI. AL 


0049 ' 

FB 


2B6 


BTI 






2B7 

l 




0046' 

BO 

00 

20B 


NOV 

AL. KBPWRU 


0048' 

E8 

0003" 

2B9 


CALL 

KEYOUT 

1 

004 B ' 

74 

21 

290 


JZ 

KEYFIN 

f 

004D ' 

B4 

06* 

291 


NOV 

AH. KNRERR 

1 

004F ' 

3C 

FF 

292 


CNP 

AL. OFFH 

i 

0091 ' 

74 

14 

293 


JZ 

KEYERR 

1 

0093' 

B4 

OBa 

294 


NOV 

AH. KRCERR 

l 

0099' 

3C 

FE 

299 


CNP 

AL. OFEH 

l 

0097' 

74 

OE 

296 


JZ 

KEYERR 

l 




297 

f 







29B 

l 

At thli point* aiiuma iti a 

'ragular ' 




299 

1 




0099' 

B4 

09a 

300 


NOV 

AH. KROERR 

i 

009B ' 

3C 

71 

301 


CNP 

AL. KB RON 

i 

009D ' 

74 

OB 

302 


JZ 

KEYERR 

i 

005F ' 

B4 

07a 

303 


NOV 

AH. KRAERR 

i 

0061 ' 

3C 

72 

304 


CNP 

AL. KB RAN 

i 

0063' 

74 

02 

309 


JZ 

KEYERR 

i 




306 

1 



« 

0069' 

B4 

OA* 

307 


NOV 

AH. KUNERR 

i 

' i 



30B 

1 




006T' 

30 

D2 

309 

KEYERR: XOR 

DL. DL 

i 

0069' 

BA 

C4 

310 


MOV 

AL. AH 

i 

006B ' 

EB 

0001- 

311 


CALL 

DSPKER 

i 




312 

l 




006E ' 

EB 

O 

o 

o 

10 

s 

313 

KEYFIN: CALL 

KEYIN1 





314 

f 

CALL 

DECLED 

i 

0071 ' 

E9 

o 

o 

o 

A 

s 

319 


JNP 

PUPTB1 

i 




316 

i 







317 


END 




No arrori datactad 


16:43:4 Paga 1-2 


Enabla tha hayboard interrupt 


Sand raaat coda to kayboard 

Exit if no arrori 

Raport kayboard 'No raiponia ' 

Q: did KB anauiar at ail ? 

N: raport 'No Raipoma' 

Raport kayboard 'Recaivar arror* 

Q: any racaiva arrori 7 

Y: raport 'Racaivar arror' 

arror 

Raport kayboard 'ROM failura' 

Q: Mai It a RON failura 7 
Y: raport tha arror 
Raport kayboard 'RAN failura' 

0: Mai It a RAN failura 7 
Y; raport tha arror 
N: raport 'Unknown' arror 
Raport kayboard 'Unknown arror' 

Nothing for parallal port 

Put arror on tha icraan 

Do drivar Ini tial I xation In KEYDSR 
aa* NO LED coda for kayboard *a# 

Go to naxt 


\ 
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HSCTBT - Miscellaneous 
MSCTBT. BRC 


*0000 


-0000 

-1144 


-0000 

0000 ' 00 
0001" 09 


ini tial i xat ion CR80B6/11 version 10.34.17 


1 

2 

3 

4 
■3 
6 

7 

8 
9 

11 

12 

13 

14 


TITLE - HSCTST - Miscellaneous initialization 
COMPUTER - B088 Assembly Language 

ABSTRACT - This module is responsible for initializing the system 
timer* the clock DSR , and updating the System Configuration 
word with various information. These routines assume the 
System Canfig words were initialized to OOOOH by RAM1NI. 


NAME MSCTBT - Miscellaneous ini t ial i zat ion 
*********** ************ *** ************* ******** 
PUBLIC DEFINITIONS 


13 


PUBLIC 

MSCTBT 



16 

1 





17 






IB 

1 


EXTERNAL 

REFERENCES 


19 






20 

l 





21 


EXTRN 

KEYTST : NEAR i 

Keyboard test logic 

(KEYTST) 

22 


EXTRN 

BETDAT : NEAR 1 

Date setting logic 

(CLKDSR ) 

23 


EXTRN 

SETT IM: NEAR l 

Time setting logic 

(CLKDSR ) 

24 

i 





25 


SECT 

ROMDAT 



26 


EXTRN 

DSKC_M: BYTE 1 

Memory copy of disk control latch 

(ROMDAT) 

27 


EXTRN 

QUEUE: WORD 1 

Keyboard queue area (used for temp) (ROMDAT) 

2B 


EXTRN 

BYSCON: WORD 1 

System Configuration word 

(ROMDAT) 

29 

i 





30 






31 

1 


LOCAL CONSTANTS 


32 





i*«**»**»*«* 

33 

l 





34 

TBTLOC 

EQU 

OOOOH l 

Offset used for installation determination 

33 

TSTVAL 

EQU 

1144H i 

Read/write value for installation 

testing 

36 






37 

i 

INCLUDE 

PEO: PORTADDR. EQU 



38 

> 

INCLUDE 

PEO: INTCTLR. EQU 



39 

« 

INCLUDE 

PEG: TIMERS. EQU 



40 

i 

INCLUDE 

PEG: LATCHES. EQU 



41 

i 

INCLUDE 

PEG: BYSCON. EQU 



42 

i 

INCLUDE 

PEG: VECTOR. EQU 



43 

i 

INCLUDE 

PEG: COMM. EQU 



44 

i 

INCLUDE 

PEG: CRT. EQU 




43 

429 

430 

431 

432 

433 

434 

435 

436 


***************************** ************************************************* 

CODE SEGMENT DEFINITION 

********************************* ********************************************* 


SECT 
ASSUME 
SCCTBL DB 
DB 


ROMCOD 
CS: ROMCOD 
SELWRO 
SELWR9 


ill Null command to SCC 
ill Select register 9 (WR9) 
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1 

I *******#***#*#***#********#*«*****#********#******####*#*********#*#***#****#* 

2 

» TITLE 

OUTPUT - 

Various screen output and error-handling routines 

3 

l COMPUTER - 

BOBB Assembly Language 

4 

l ABSTRACT - 

This module contains the error-repor t ing and the general- 

9 

i purpose screen 

output routines. 

6 

i * Add entry 

point for 

external users of DSPERR which accepts error code in BX 

/ 

B 

o 

NAME 

OUTPUT 

- Screen output and error-handling routines - 

7 

10 

i 


PUBLIC DEFINITIONS 

1 1 
12 

i 



13 

PUBLIC 

ARGHHH 


14 

PUBLIC 

DSPDIE 


19 

PUBLIC 

DSPERR 


16 

PUBLIC 

DSPKER 


17 

PUBLIC 

DSPERZ 


18 

PUBLIC 

FATAL 


19 

PUBLIC 

MBO 


20 

PUBLIC 

NMIOO 


21 

PUBLIC 

PUPNMI 


22 

PUBLIC 

WILD** 


23 




24 


««*««»«»« 


29 



EXTERNAL REFERENCES 

26 




27 





-0000 

28 

SECT 

ROMCOD 





29 

EXTRN 

CRTOUT : NEAR 

i 

CRT character output routine 

(CRTDSR ) 


30 

EXTRN 

FATERR : ABS 

1 

Fatal software error code 

(ROMERR) 


31 

EXTRN 

IVIERR: ABS 

f 

Invalid interrupt Interrupt port 

code ( TSTERR ) 


32 

EXTRN 

LED 100: ABS 

l 

Interrupt error code 

(ROMERR) 


33 

EXTRN 

LED101: ABS 

1 

LED error code (used for PUPNMI) 

(ROMERR) 


34 

EXTRN 

PWRUP: FAR 

i 

Pouierup reset routine 

(RESET) 


39 

EXTRN 

RMPERR : ABS 

l 

# RAM parity error' 

(ROMERR) 


36 

EXTRN 

WLDERR: ABS 

I 

Wild interrupt error code 

(ROMERR) 


37 

EXTRN 

XNMERR: ABS 

f 

'Unexpected NMI ' error code 

(ROMERR) 

-0000 

ao 1 

39 

SECT 

ROMDAT 





40 

EXTRN 

DSKC_J1: BYTE 

i 

RAM copy of disk control port 

(ROMDAT) 


41 

EXTRN 

PRCO_M: BYTE 

1 

RAM copy of printer control port 

(ROMDAT) 


V 
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0000 ' 
0003' 
0009' 
OOOF ' 
0019' 
0019' 

001 A ' 
OOiD ' 
0023' 
0029' 
002F ' 
0031 ' 

0031 ' 

0032' 
0032' 
0038' 
003E ' 

0042' 
0042 ' 
0044' 


-061B 

-OOOD 

-OOOA 


-0000 


OD 

OA 

OA 




2A 

2A 

20 

4B 

69 

79 

62 

6F 

61 

72 

64 

20 

49 

72 

72 

6F 

72 

20 

2A 

2A 

20 

20 



00 






OD 

OA 

OA 




2A 

2A 

20 

93 

79 

73 

74 

69 

6D 

20 

49 

72 

72 

6F 

72 

20 

2A 

2A 

20 

20 





-0014 





00 







30 31 32 33 34 39 
36 37 38 39 41 42 
43 44 49 46 v 


0082” 
0087 M 


43 




44 

i 


LOCAL CONSTANTS 

49 

46 

i *********************************** ******** *********************************** 

l 

47 

BELTMR 

EGU 

1963 i 1963 -- ) 800 Hi for system beeper 

48 

CR 

EQU 

ODH 

49 

90 

LF 

EQU 

OAH 

91 

l 

INCLUDE 

PEO: CRTOP. EQU 

92 

f 

INCLUDE 

PEG: INTCTLR. EQU 

93 

i 

INCLUDE 

PEG: CRT. EQU 

94 

» 

INCLUDE 

PEG: LATCHES. EQU 

99 

l 

INCLUDE 

PEG: PORTADDR. EQU 

96 

i 

INCLUDE 

PEG: TIMERS. EQU 

97 

l 

INCLUDE 

PEO: USART. EQU 

98 

99 

» 

i 

INCLUDE 

PEG: VECTOR. EQU 

384 




389 

I 


CODE SEGMENT DEFINITION 

306 

387 

i 



388 


SECT 

ROMCOD 

389 

390 

i 

ASSUME 

CB: ROMCOD 

391 

i ««»**» 



392 

I 


LOCAL DATA AREA 

393 

394 

i •*»«»* 

i 

********4 


399 

KERMSQ 

DB 

CR.LF. LF 

396 


DB 

'** Keyboard Error ** ' 


397 

398 

t 

DB 

00 

i End of string 

399 

SERI MB 

DB 

CR.LF. LF 


400 

SER2MS 

DB 

'** System Error ** ' 



401 

402 

403 

SEREND 

SERMSL 

LABEL 

EQU 

DB 

BYTE 

SEREND-SER 2MS 
00 

i 

End of 

string 

404 

409 

1 

BINASC 

LABEL 

BYTE 

1 

Binary 

to ASCII lookup table “ used by XLAT 

406 


DB 

'01 23496789ABCDEF 

. 



407 

1 







408 

DIESTK LABEL 

UORD 






409 

DU 

OFFSET DDO 

i Fake 

return 

address 

for 

DSPDIE 

410 

DU 

OFFSET DD1 

i Fake 

return 

address 

for 

DSPDIE 
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0046 ' 
0040 ' 
004A' 
004C' 


004E ' 
004E' 
004F ' 
0090 ' 
0099 ' 
0090' 
009B ' 
009D ' 
0063' 
0066' 
0069' 
006A ' 
006C ' 
006E ' 
0070' 
0073' 
0079' 
0077' 
0079' 
007B ' 


OO0E " 

411 

DM 

OFFSET 

DD2 

i 

Fake 

return 

address 

for 

DSPDIE 

0094" 

412 

DM 

OFFBET 

DD3 

i 

Fake 

return 

address 

for 

DSPDIE 

0099" 

413 

DM 

OFFSET 

DD4 

1 

Fake 

return 

address 

for 

DSPDIE 

OOAO" 

414 

DM 

OFFSET 

DD9 

) 

Fake 

return 

address 

for 

DSPDIE 


419 

416 

417 

418 

419 

420 

421 

422 

423 

424 
429 

426 

427 
420 

429 

430 

431 

432 

433 

434 
439 

436 

437 
430 

439 

440 

441 


MODULE ENTRY POINT 


DSPDIE - Display error message and 'die' 

This routine is intended for use by the powerup diagnostics. 

If an error occurs during powerup tests* this routine should be 
'jumped to' with the low-order byte of the error code in AL. 

It displays the message ' ** System Error •» - OOxx' by 

writing directly to screen RAM (because during powerup the CRT 
D5R has not yet been ini t ial i xed ). If the factory test interface 
is connected (signified by 'PAPER OUT' and 'NOT BUSY'), the error 
code is also sent out the parallel printer port. A code passed 
in register DL will be written to the printer port (as one character) 
after the ASCII error code. The system 'bell' is then sounded and 
the CPU halts with interrupts disabled. Any restart attempts 
must be by cycling power. 


INPUT: 


OUTPUT: 

U9ED: 

STACK: 

ASSUME 


AL - 2-digit error code to be displayed (DSPDIE adds leading 00) 
Error code is not range-checked, but should be in the 
range from O to 9 because of simple ASCII conversion. 

DL * LED value to be place on the parallel port before dying, 
(error message to screen/paral lei port, beep) 

(at this point, nobody cares anyway) 

CS: ROMCOD. DS: ROMDAT. EB: CRTDAT 



442 

, 


— 



443 

DSPDIE PROC 

NEAR 



FC 

444 

CLD 


1 1 1 

Forward strings 

FA 

449 

CLI 


1 1 1 

Quit listening 

2E0E IE Cl BO 

446 

MOV 

DS. MORD PTR CS: DSADDR+CBMRAP ill Set up local DS 

BE OOID" 

447 

MOV 

SI. OFFSET BER2MS 

1 1 1 

Point to 'SYSTEM ERROR' message 

BB 0000' 

448 

MOV 

BX. CRTDAT 

1 1 1 


BE C3 

449 

MOV 

ES. BX 

9 9 I 

ES “ screen RAM segment 

26C6 06 1000 OF 

490 

MOV 

BYTE PTR ES: ATTLAT. OFH 

1 1 1 

Bet attribute latch to default 

BF 0000 

491 

MOV 

D I. 0000 

1 1 1 

Start in up left corner of screen 

B9 0014 

492 

MOV 

CX. OFFSET BERMSL 

1 1 1 

Get length of message 

F2 

493 

REP 


1 1 9 


2EA4 

494 

M0V8 

BYTE PTR EDI 1. CS: BYTE PTR CBI1 in Put string on screen 

8C C9 

499 

MOV 

CX.CS 

1 9 9 


BE D1 

496 

MOV 

S5. CX 

9 1 1 


BC 0042” 

497 

MOV 

SP. OFFSET DIESTK 

1 1 1 

Set up fake stack for no-RAM calls 

OC 70 * 

498 

OR AL. 

( PRAUTO+PRSTRB+PR INI T ) 

I 9 9 

Force printer interface to active 

BA E8 

499 

MOV 

CH. AL 

9 9 9 

Save LED state for now. 

F6 DO 

460 

NOT 

AL 

9 1 1 

Invert the error code byte 

24 07 

461 

AND 

AL. Q7M 

1 1 1 

Mask off low-order 3 bits 

BA FO 

462 

MOV 

DH. AL 

1 1 I 

Save AL error 
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463 

l 




007D ' 

B0 

202D 

464 

MOV 

AX# ' - ' ill 



OOBO ' 

EB 

27 

469 

JMP 

SHORT PRCWRD 1 I I 

Data to screen It test t/F (call) 


0082' 



466 

DDO: 

1 1 1 

Fake stack causes RETurn to here 


0082' 

B0 

3030 

467 

MOV 

AX. '00' ill 

Leading zeros to the screen 


0003' 

EB 

22 

468 

JMP 

SHORT PRCWRD 1 I i 

and to the test I/F (fake call) 


0007' 



469 

DDi : 

l l l 

Fake stack causes RETurn to here 


0007' 

B8 

3030 

470 

MOV 

AX. '00' in 



006A ' 

00 

F4 

471 

ADD 

AH# DH III 

Convert binary in AL to ASCII in AX 


OOBC ' 

EB 

IB 

472 

JMP 

SHORT PRCWRD 1 l 1 

Data to screen t test I/F (call) 


OO0E ' 



473 

DD2: 

1 1 i 

Fake stack causes RETurn to here 


OOBE' 

BO 

OD 

474 

MOV 

AL» CR III 

Carriage return 


0090' 

8A 

E2 

479 

MOV 

AH. DL III 

and the LED port code 


0092' 

EB 

16 

476 

JMP 

SHORT PRTWRD 1 1 l 

To the test I/F (fake call) 


0094' 



477 

DD3: 

i 1 1 

Fake stack causes RETurn to here 


0094' 

B0 

OAOA 

478 

MOV 

AX.OAOAH III 

Two line feeds 


0097' 

EB 

II 

479 

JMP 

SHORT PRTWRD l I l 

To the test I/F (fake call) 


0099' 



480 

DD4: 

l 1 1 

Fake stack causes RETurn to here 


0099' 

0A 

C2 

401 

MOV 

AL. DL ill 



009B ' 

E6 

02 

402 

OUT 

PR DA P. AL III 

Always send LED code to port 


009D ' 

E9 

0122 

483 

JMP 

PUPBEL l i i 

Beep the bell (fake call) 


OOAO ' 



404 

DD9: 


Fake stack causes RETurn to here 

! 

OOAO ' 

F4 


403 

HLT 

1 1 1 

*** DIE TOTALLY #** 


00 At ' 

EB 

F6 

486 

JMP 

DD4 i 1 i 

Shoot him again to make sure 





487 




■ > ■" 




408 

1 PRTWRD - 

Send the word in AX out the parallel port if the factory test 





489 

f interface is connected (denoted bg 

PAPER OUT being true when NOT BUSY). 





490 

i Note that the data is strobed using 

the AUTOFEED signal rather than 





491 

i the 

normal STROBE signal. 






492 

• PRCWRD - 

Alternate entry point which writes the word to memory at EB: D1 





493 

» (typically screen RAM) before sending it to the parallel port. 





494 

i 







499 

i INPUT: 

AL - 1st character to be sent to parallel port 





496 

« 

AH - 2nd character to be sent to parallel port 

i 




497 

i 

CH - PRC0J1 (or what should be 

in PRCO_M) 





498 

i 

(Assumes interrupts are disabled) 

i 




499 

i OUTPUT: 

Two bytes out the parallel port 

if test I/F is there 





300 

1 USED: 

AX. BX. CX 






301 

1 STACK: 

2 bytes 






902 

903 

ASSUME 
1 

DS: ROMDAT 




00A3 ' 



904 

PRTWDX 

PROC - 

NEAR 



00A3 ' 

8A 

2E OOOB- 

903 


MOV 

CH. BYTE PTR PRCO.M 

1 

printer control latch 

00A7 ' 

EB 

01 

306 


JMP 

SHORT PRTWRD 

1 

Do print word operation 




307 

l 





00A9 ' 



308 

PRCWRD 

PROC 

NEAR 



00A9 ' 

AB 


309 


8T08 

WORD PTR CDI 3 

l 

Write the word to screen memory 



% 

310 

l 





OOAA ' 



311 

PRTWRD 

PROC 

NEAR 



OOAA ' 

8B 

D8 

912 


MOV 

BX# AX 

1 

Save the characters temporarily 

OOAC ' 

E4 

01 

313 


IN 

AL# PRC I P 

l 

Look at parallel port status latch 

OOAE ' 

24 

30 

914 


AND 

AL. PRPAPO + PRBUBY 

l 

Mask off the Paperout and Busy bits 
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00B0 ' 

3C 

20 

313 



CMP 

AL.PRPAPO AND (NOT 

PRBUSY) i G: Is the factory connected ? 

00B2 9 

73 

IE 

316 



JNE 

PWEXIT 


i N: Then blow it off 

00B4 ' 

B t 

02 

317 



MOV 

CL, 02 


i Y: Set up loop for 2 characters 

00B6 ' 

BA 

C3 

316 



MOV 

AL# BL 


i Oet first character 

OOBB ' 



319 

PWi 

: 





OOBB ' 

E6 

02 

320 



OUT 

PRDA_P, AL 


i Put it out to the data latch 

OOBA ' 

BA 

C3 

321 



MOV 

AL, CH 


i Get copy of control latch from memory 

OOBC ' 

34 

EF 

322 



AND 

AL, NOT PRAUTO 


i (Use AUTOFEED signal as data strobe) 

OOBE ' 

E6 

03 

323 



OUT 

PRCOJ*. AL 


i 6c t the AUTOFEED cignal low 

OOCO' 

90 


324 



NOP 



1 Delay 

00C1 ' 

34 

10 

323 



XOR 

AL. PRAUTO 


« 

00C3 ' 

E6 

03 

326 



OUT 

PRCO_P, AL 


f Bring it back high 

00C3 ' 

90 


327 



NOP 



f Delay for BUSY on test interface 

00C6 ' 



32B 

PW2 






00C6 ' 

E4 

01 

329 



IN 

AL. PRC I JP 


i Look at status latch 

OOCB ' 

AB 

10 

330 



TEST 

AL. PRBUSY 


i Q: Still BUBY ? 

OOCA ' 

73 

FA 

331 



JNZ 

PW2 


I Y: Loop til not busy 

OOCC' 

BA 

C7 

332 



MOV 

AL, BH 


i N: Send next character 

OOCE ' 

FE 

C9 

333 



DEC 

CL 


» BENT ALL CHARS? 

OODO ' 

73 

E6 

334 



JNZ 

PW1 


i (if I haven't already) 

00D2 ' 



333 

PWEXIT: 





00D2' 

C3 


336 



RET 



» see RETURN *** 




337 

i ** 

»»»*i 

***** 


»*»i 





33B 

« 









339 

i 

DSPERR - 

System error display subroutine 




340 

i 

DSPKER - 

Keyboard error display 

subroutine 




341 

i 


These subroutines perform a 

function similar to DSPDIE. except 




342 

i 


that 

they are callable NEAR 

subroutines, returning rather than 




343 

i 


'dying'. Also# they us* the CRT DSR to do the screen output. 




344 

i 


DSPERR outputs the message 

'** 

System Error ** - OOxx' 




343 

i 









346 

« 

INPUT: 

AL ■ 2-digit error code 

to 

be displayed (DSPERR adds leading 00) 




347 

i 

< DSPERX) 

AX * 4-digit error code 

to 

be displayed 




34B 

i 

OUTPUT: 

(error message to screen/paral lei port, beep) 




349 

i 

USED: 

AX, BX, CX 






330 

f 

STACK: 







331 


ASSUME 

C8: ROMCOD 
















uus 

f — 






00D3 ' 



333 

DSPERZ 

PROC 

NEAR 



00D3 ' 

8B 

C3 

334 



MOV 

AX, BX 


i Put error code into AX. 

00D3' 

EB 

OA 

333 



JMP 

SHORT DSPERX 


f and continue 




336 

1 






00D7 ' 



357 

DSPKER 

PROC 

NEAR 



00D7 # 

30 

E4 

330 



XOR 

AH, AH 


i Set up leading zero of message 

00D9 ' 

36 


339 



PUSH 

SI 



OODA ' 

BE 

oooo- 

360 



MOV 

SI, OFFSET KERMSG 


i Point to Keyboard error message 

OODD ' 

EB 

06 

361 



JMP 

SHORT DSPER1 


i Jump to rest of code 



\ 

362 

1 






OODF ' 



363 

DSPERR 

PROC 

NEAR 



OODF ' 

30 

E4 

564 



XOR 

AH. AH 


i Set up leading zero of message 

00E1 ' 

36 


363 

DSPERX : 

PUSH 

SI 



00E2 ' 

BE 

001 A" 

566 



MOV 

SI, OFFSET SERI MS 


i Point to System error message 
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00E3' 



S67 DSPER1 : 





OOE3' 

9C 


S6B 

PUBHF 



i 

Save flags. 

OOEA ' 

IE 


S69 

PUSH 

DS 


i 

SAVE current D9. i 

OOE7 ' 

2E8E IE Cl BO 

S70 

MOV 

DB. CB: WORD 

PTR 

DBADDR+C6WRAP ! 

OOEC ' 

30 


371 

PUSH 

AX 


1 

Bave the error code 

OOED ' 

EB 

OOBF 

S72 

CALL 

MSO 


9 

Put it to the screen 

OOFO ' 

BB 

202D 

S73 

MOV 

AX. ' -' 


1 

Reversed to ' 

00F3 ' 

EB 

00F9 

S74 

CALL 

0UT2CH 


l 

Bend to screen and test I/F 

00F6 ' 

SB 


373 

POP 

AX 


9 

Get leading error code 

00F7 ' 

SO 


376 

PUSH 

AX 



OOFB ' 

B6 

EO 

377 

XCHQ 

AH. AL 


l 

SWAP 

OOFA ' 

EB 

OOEF 

S7B 

CALL 

OUTBYT 


1 

Convert it and display it 

QOFD' 

SB 


379 

POP 

AX 


9 

Get the error code back 

OOFE ' 

EB 

OOEB 

380 

CALL 

OUTBYT 


1 

Convert it and display it 

0101 ' 

BB 

OAOD 

381 

MOV 

AX.OAODH 


• 

Carriage return 

0104 ' 

EB 

FF9C 

382 

CALL 

PRTWDX 


1 

Bend to test 1/F (only) 

0107 ' 

EB 

OOBB 

383 

CALL 

PUP BEL 


1 

Make 'em notice 

010A' 

IF 


3B4 

POP 

DS 


I 

Restore state 

01 OB ' 

9D 


303 

POPF 





010C' 

SE 


3B6 

POP 

SI 




010D 9 

C3 


3B7 

RET 



1 

*e* RETURN **# 




SBB i as 



**«< 






389 • 

NM1 Interrupt entry 

point for normal processing ! 




390 • 









391 l 

Check* 

for parity interrupt and shut* down and report* error if «o. 




392 • 

report* 

unexpected 

NMI 

otherwise. 

If anyone ever uses NMI for 




393 • 

anything else* they 

should Intercept the vector to the beginning of 




394 i 

the routine. 







393 1 









396 i 

STACK: 

Who care*? 







397 i — 



— 




010E ' 

20 

20 49 

67 6E 

6F 

39B 

PARM80 

DB 

' Ignore. Reboot? '.00 



01 14 ' 

72 

63 2C 

20 32 

63 







01 1A' 

62 

6F 6F 

74 3F 

00 

399 

9 




1 

0120 ' 





600 

NMI GO 

PROC 

FAR 


1 

0120 ' 

30 




601 


PUSH 

AX 

l 

Bave registers 

0121 ' 

BO 

26 



602 


MOV 

AL. UC_J)TR+UC RXE+UCJITB 

l 


0123' 

E6 

11 



603 


OUT 

KBCMD. AL 

l 

0123' 

E4 

01 



604 


IN 

AL. PRC I JP 

l 

Get parity interrupt status. 

0127' 

24 

OB 



603 


AND 

AL, PAR1NT 

1 

0: Parity interrupt? 

0129' 

BO 

09* 



606 


MOV 

AL. XNMERR 

1 

Bet up unexpected NMI error code 

012B ' 

74 

07 



607 


Jl 

NMIG4 

i 

N: Jump and exit. 

01 2D ' 

BO 

07* 



60B 


MOV 

AL. RMPERR 

9 

Y: Display the RAM parity error. 

012F ' 

2EFF OE C198 


609 


DEC WORD PTR CB: MEMSIZ+CSWRAP 

9 

require full powerup on warm reset. 

0134' 

33 




610 

NMI04: 

PUSH 

BX 

9 

Bave the user registers 

0133' 

31 




611 


PUSH 

CX 



0136' 

32 


V 


612 


PUSH 

DX 


| 

0137' 

36 




613 


PUSH 

81 


• 

013B ' 

B4 

10 



614 


MOV 

AH. 10H 

9 

I04X ! 

013A ' 

EB 

FFA4 



613 


CALL 

DSPERX 

9 

Display the error message. 1 

013D ' 

BE 

010E H 



616 


MOV 

BI. OFFSET PARMSG 

9 

Parity error message. 
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0140' 

E8 

006C 

617 

CALL 

MSO 

i Display prompt 

0143' 

30 

E4 

618 

NM106: XOR 

AH, AH 

i Get a char from keyboard. 

0149' 

CD 

4A 

619 

INT 

KEYINT 

i 

0147' 

24 

DF 

620 

AND 

AL. ODFH 

< Convert to uppercase 

0149' 

3C 

92 

621 

CNP 

AL, 'R ' 

l Q: Reboot? 

014B ' 

79 

09 

622 

JNZ 

NMI 08 

i N: check for others 

014D ' 

EA 

0006" 0000" 

623 

JMP 

PWRUP 

i Y: Reset the system 

0192' 

3C 

49 

624 

NH 108: CMP 

AL. 'I ' 

f Q: Ignore? 

0194' 

79 

ED 

629 

JNZ 

NMIG6 

i N: Wait for another char. 

0196' 

9E 


626 

POP 

81 

i 

0197' 

9A 


627 

POP 

DX 

i Y: Return to user program 

0198' 

99 


628 

POP 

CX 


0199' 

9B 


629 

POP 

BX 


01 9A ' 

98 


630 

POP 

AX 


015B ' 

CF 


631 

IRET 






632 

l 






633 

1 






634 


*****»*»«*#**»#**« #**»*«*»*« 





639 

i NMI 

interrupt entry point for powerup 




636 

1 






637 

j Checks for parity Interrupt and 

shuts down and reports error if so. 




638 

i reports unexpected NMI otherwise 

• If anyone ever uses NMI for 




639 

i anything else* they should intercept the vector to the beginning of 




640 

i the 

routine. 





641 

i 






642 

i STACK: Who car#s7 





til 







0*1 <3 

i “ — — 



019C ' 



644 

PUP NMI PROC 

FAR 


019C ' 

BO 

26 

649 

MOV 

AL. UC DTR-9-UC RXE+UC RTS 

i Force interrupt on permanently 

015E ' 

E6 

11 

646 

OUT 

KBCMD, AL 

i 

0160' 

E4 

01 

647 

IN 

AL.PRCI_P 

i Get parity interrupt status. 

0162' 

24 

08 

64B 

AND 

AL. PAR INT 

i Q: Parity interrupt ? 

0164' 

BO 

04# 

649 

MOV 

AL. LED IOO 

i Y: Set up unexpected NMI error code 

0166' 

B2 

03* 

690 

MOV 

DL. IVIERR 

i And LED state. 

0168' 

74 

04 

691 

JZ 

PUPNM4 

« N: Jump and exit. 

016A ' 

BO 

09* 

692 

MOV 

AL, LED101 

f Display the RAM parity error. 

016C ' 

30 

D2 

693 

XOR 

DL, DL 

i Zero to printer port 

016E ' 

E9 

FEDD 

694 

PUPNM4: JMP 

DSPDIE 

f Quit. 




699 





696 

i WILD** - 

Illegal (soft or hard) interrupt exit 




697 

9 This 

exit is taken if an interrupt occurs from any of the unused 




698 

i interrupt vectors. The cause could be either a software interrupt 




699 

I or an errant hardware interrupt. 

This routine puts a fixed error 




660 

i code 

into AL and jumps to ARGHHH 

1. 




661 

i INPUT: 

(none ) 





662 

i OUTPUT: 

Error message to the screen 

(fixed error code), PC, beep 




663 

i USED: 





% 

664 

i STACK: 






669 

i i i 

ASSUME 

CB: ROMCOD 





666 

i — — — 



0171 ' 



667 

MILD** PROC 

FAR 


0171 ' 

BO 

08* 

468 

MOV 

AL, WLDERR 

i Set up 'Wild' interrupt error code 
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0173' 


0173 ' 
0173 ' 


0177 ' 
0177 ' 
0177 ' 
0179 ' 
017B ' 
017E ' 
0181 ' 
0184 ' 
01B6' 
01B9 ' 
01BC ' 
01 BE ' 
0190 ' 
0193 ' 
0196' 
0199 ' 
0 1 9C ' 
019F ' 
01A1 ' 
01 A3 ' 


EB 03 


BO 03* 


669 

670 

671 
673 

673 

674 
673 

676 

677 
67B 
679 
6B0 
6B1 
6B3 
6B3 
684 
6B3 
6B6 
6B7 
6BB 
6B9 

690 

691 
693 

693 

694 
693 

696 

697 
69B 

699 

700 


JMP 


SHORT ARGNER 


i Exit the standard way 


FATAL - Fatal error exit (software buggie) 

This exit is taken as the last resort by any software routine 
which has given up on the normal error-recovery procedures. It 
puts a fixed error code into AL and jumps to ARGHHH* Typical user 
would be ZEX. 

INPUT: (none) 

OUTPUT: Error message to the screen (fixed error code)* PC* beep 

USED: 

STACK: 

ASSUME CB: ROMCOD 


FATAL PROC FAR - 

MOV AL.FATERR 

JMP SHORT ARGNER 


t Bet up fatal error code 
i Do the standard thing 


ARGHHH - (Just like it sounds) Display error message and wait. 
This routine is used by anyone that wants to halt with an 1 
error message but still be alive enough to restart from the 
keyboard. This should be used for all cases except during 
powerup. In addition to the standard 'SYSTEM ERROR' message 
and beep* the calling CB: IP is displayed as a debugging aid. 


INPUT: 

OUTPUT: 

USED: 

STACK: 

ASSUME 


AL ■ 3-digit error code 
Error message to the sc 


CS: ROMCOD 


to be displayed (AROHHH adds leading 10) 
reen* PC* beep 




701 

ARGNER 

PROC 

NEAR 

» 

Dummy def for assembler 



703 

ARGHHH 

PROC 

FAR 



B4 

10 

703 


MOV 

AH. 10H 

l 

Bet high byte of error to 10 

B3 

OA 

704 


MOV 

DL.LF 

1 


EB 

FF 63 

703 


CALL 

DSPERX 

l 

Print error 

BB 

4030 

706 


MOV 

AX. 't ' 

l 

Delimiter (' •') 

EB 

006B 

707 


CALL 

0UT2CH 



BB 

EC 

70B 


MOV 

BP. BP 

i 

Set up BP 

BB 

46 03 

709 


MOV 

AX. 2CBPJ 

1 

Get user's CS 

EB 

0039 

710 


CALL 

OUTWRD 

a 

Display it 

BO 

3A 

711 


MOV 

AL. ': ' 

a 

De 1 imi ter 

B4 

OE 

713 


MOV 

AH. CRTWTY 

a 

Use TTY screen 

EB 

0001- 

713 


CALL 

CRTOUT 

a 

Output it (to screen only) 

BB 

46 00 

714 


MOV 

AX. CBP 3 

i 

Get user's IP 

EB 

004C 

- 713 


CALL 

OUTWRD 

a 

Display it 

B8 

OAOD % 

716 


MOV 

AX. CR + (LF SHL B) 

i 

CRLF 

EB 

0030 

717 


CALL 

0UT2CH 



BO 

7F 

718 


MOV 

AL. (ENAB7) 

i 

Leave only keyboard enabled 

E6 

19 

719 


OUT 

INTA01. AL 

i 

Set mask register 

BO 

C6 

720 


MOV 

AL. 1 10001 10B 

a 

Readjust priority of controler 
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01 A3 * 

E6 

18 

721 


OUT 

1NTA00* AL I So keyboard is highest priority 

01A7 * 

BO 

OF 

722 


MOV 

AL# OFH j Turn off floppy motors 

01 A9 9 

E6 

04 

723 


OUT 

DSKS_P. AL 

01 AB 9 

FB 


724 


8TI 

i Turn interrupts hack on 

01AC' 



723 

ARHALT: 


01 AC 9 

F4 


726 


HLT 

i Wait 

01 AD ' 

EB 

FD 

727 


JMP 

BHORT ARHALT 1 ...and wait 




728 

f #*« 






729 

1 

MSO - Output string of characters in the current C8 to the CRT. 




730 

> 

The 

string should be terminated with a zero byte. 




731 

1 

INPUT: 

81 " string offset in current C6 




732 

I 

OUTPUT: 

i screen ) 




733 

1 

USED: 

AX, SI 




734 

1 

STACK: 





733 

711 


ASSUME 

C8: ROMCOD. DS: NOTHING 




t JO 

1 “ 



OlAF * 



737 

MSQ 

PROC 

NEAR 

01 AF ' 

31 


738 


PUSH 

CX 

01B0 ' 

32 


739 


PUBH 

DX 

OlBl ' 

FC 


740 


CLD 

i forward strings 

01B2 9 



741 

MSGO: 


01B2 ' 

B4 

OE 

742 


MOV 

AH. CRTWTY i Set CRT for TTY output 

01B4 # 

2EAC 

743 


LODB 

CS: BYTE PTR tSII 1 Pickup byte 

01B6 ' 

08 

CO 

744 


OR 

AL. AL i Check for end 

01B8 9 

74 

03 

743 


JZ 

MSG1 

01BA 9 

E8 

0001- 

746 


CALL 

CRTOUT i Print char 

01BD 9 

EB 

F3 

747 


JMP 

BHORT MSGO 

01BF 9 



748 

MS01: 


01BF * 

3A 


749 


POP 

DX 

01C0' 

59 


730 


POP 

CX 

01CI ' 

C3 


731 


RET 

i *** RETURN *** 




752 

i «** 






753 

i 

PUPBEL - 

This routine is used to sound the system beeper without 




754 

i 

using timing services or any stack other than that used to call 




733 

i 

this 

subroutine (which can be faked). 




756 

i 






737 

i 

NOTE 

THAT INTERRUPTS ARE DISABLED IN THIS ROUTINE FOR THE DURATION 




758 

i 

OF THE l SECOND BEEP DELAY AND NOT REENABLED. THIS IS NOT 




759 

i 

INTENDED TO BE A GENERAL PURPOSE ROUTINE. 




760 

< 






761 

i 

OUTPUT: 

<*** BEEP ***) 




762 

f 

USED: 

AL 




763 

« 

STACK: 

2 bytes (usually faked) 




764 

~7 tm 


ASSUME 

CS: ROMCOD. DS: NOTHING 




/ o j 

j — 



01C2 9 



766 

PUPBEL PROC 

NEAR 

01C2 ' 

FA 


767 


CL I 

i Protect this 

01C3 9 

BO 

36 % 

768 


MOV 

AL, (TC_SCO + TC_WRD + TC_MD3> ill Set the timer 

01C3 9 

E6 

17 

769 


OUT 

TIMCMD, AL in 

01C7 ' 

BO 

IB 

770 


MOV 

AL. LOW BELTMR ill 1.29 MHi / BELTMR - frequency 

01C9 ' 

E6 

14 

771 


OUT 

TIMERO# AL ill 

01CB ' 

BO 

06 

772 


MOV 

AL. HIGH BELTMR ill 
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OICD' 

E6 

14 

773 


OUT TIMERO. AL 


1 « J 

OICF' 

AO 

OOOA" 

774 


NOV AL. DSKC J1 


1 1 1 

01D2 * 

OC 

01 

779 


OR AL. BPKREN 


f I i Turn the speaker on 

01D4 0 

E6 

00 

776 


OUT DBKC_p. AL 


i i I 

0 1 D 6 9 

31 

C9 

777 


XOR CX.CX 


i i i Clear CX 

0ID8 9 

E2 

FE 

77B 


LOOP * 


i i i 223 msec + 

01 DA 9 

E2 

FE 

779 


LOOP % 


M i 223 msec + 

01DC 9 

E2 

FE 

7B0 


LOOP * 


i i i 223 msec + 

01DE 9 

E2 

FE 

781 


LOOP • 


i f i 223 msec ■ appro*. 1 second 

OiEO 9 

34 

01 

7B2 


XOR AL. BPKREN 


ill Flip the enable bit 

01E2 9 

E6 

00 t 

783 


OUT DBKC P. AL 



01E4 9 

C3 


784 


RET 


i i i a** RETURN *** 




789 

I 


******** 





786 

1 

OUTWRD/OUTBYT - output wordtbyt.) in 

AX(AL) to the screen in hex 




787 

1 







788 

l 

INPUT: AX/AL - numb.r 




* 


7B9 

I 

OUTPUT: ( display! 






790 

» 

USED: AX. BX 






791 

1 

STACK: CLOTS) 






792 

70*1 


ASSUME CB: ROMCOD 






/7J 

l ■ 




01E9 9 



794 

OUTMRD PROG NEAR 



01E9 ' 

90 


799 


PUSH AX 


l Work on left byte first 

01E6' 

BA 

C4 

796 


MOV AL. AH 


I Copy to AL 

01ES 9 

EB 

0001 

797 


CALL OUTBYT 


i Convert ti output 

01EB 9 

98 


79B 


POP AX 


« Now do right byte 




799 

1 




OIEC 9 



BOO 

OUTBYT PROG NEAR 



01EC 9 

EB 

0018 

B01 


CALL CNVBYT 


« Convert byte to hex-ASCII 




802 

onT 

1 

JMP 0UT2CH 


i Display result 




□ UJ 








804 

1 

0UT2CH - Output two chars to 

consols 

t, and factory test interface. 




B09 

l 

If connected. 






806 

l 







B07 

I 

INPUT: AL * 1st char to be 

output 





BOB 

f 

AH *■ 2nd char to be 

output 





B09 

f 

OUTPUT: (display It parallel 

port ) 





810 

f 

USED: AX. BX 






811 

1 

STACK: 






812 
Q| 7 


ASSUME CB: ROMCOD 






dl J 

l 




01EF 9 



814 

0UT2CH PROG NEAR 



01EF 9 

91 


819 


PUSH CX 



01F0* 

92 


816 


PUSH DX 



01FI ' 

8B 

DB 

817 


MOV BX. AX 


i Save the characters 

01F3 9 

B4 

OE 

81B 


MOV AH, CRTWTY 


i Set up for TTY output 

0IF9 9 

EB 

0001" 

B19 


CALL CRTOUT 


i Output char In AL as usual 

01FB 9 

BA 

C7 * 

820 


MOV AL. BH 


i Now do char in AH 

01FA 9 

B4 

OE 

821 


MOV AH, CRTWTY 



OIFC 9 

EB 

0001" 

822 


CALL CRTOUT 



OIFF 9 

BB 

C3 

823 


MOV AX. BX 


i Restore AX 

0201 ' 

EB 

FE9F 

824 


CALL PRTWDX 


i and send it to the test I/F 
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0204 ' 
0203 ' 
0206 ' 

3A 

39 

C3 

B23 

B26 

827 

B2B 

0*50 

1 

POP 

POP 

RET 

DX 

CX 

• 

*** RETURN *** 



ClaCY 








B30 

l 

CNVBYT - Convert binary byte to Hei-ASClI 



831 

f 







B32 

i 

INPUT: AL 

■ byte to be converted 





833 

l 

OUTPUT: AL 

* ASCII representation 

for 

high-order nibble 



B34 

1 

AH 

■ ASCII representation 

for 

loui-order nibble 



833 

1 

USED: AX 

BX 





B36 

l 

STACK: 4 






B37 

nnrj 


ASSUME CS 

ROMCOD 





sJa 

l — * 





0207 9 


B39 

CNVBYT PROC 

NEAR 



0207 9 

31 

B40 


PUSH 

CX 

i 

Must save CX 

0208' 

BB 0032 M 

841 


MOV 

BX. OFFSET BINASC 

i 

Address of lookup table 

020B ' 

BA C8 

842 


MOV 

CL, AL 

I 

Save other nibble 



B43 

i 







844 

i 

Right nibb 1 ■ first 





843 

i 





020D' 

24 OF 

846 


AND 

AL. OFH 

i 

Extract <3:0> 

020F ' 

2ED7 

847 


XLAT 

BYTE PTR CS: CBX3 

i 

Translate AL ( — CBX+AL3 

0211 ' 

8A EO 

848 


MOV 

AH, AL 

i 

Save result 



849 

l 







830 

I 

Then left nibble 





831 

i 





0213' 

BA Cl 

832 


MOV 

AL, CL 

i 

Retrieve other nibble 

0213' 

B 1 04 

833 


MOV 

CL, 4 

i 

Prepare for 4 shifts 

0217' 

D2 EB 

834 


SHR 

AL, CL 

i 

Extract (7:4) 

0219' 

2ED7 

833 


XLAT 

BYTE PTR CS: CBX3 

i 

translate: AL < — CBX+AL3 

021B ' 

39 

B36 


POP 

CX 

i 

restore 

021C ' 

C3 

857 


RET 


i 

*** RETURN *** 



838 

I 







839 


END 





No error* detected 


» 
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=0000 


-OOFO 


-0000 


1 

3 

3 

4 
3 
6 

7 

8 
10 
11 
12 

13 

14 
13 
16 
17 
IB 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 
187 
IBB 

189 

190 

191 

192 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 

203 

204 
203 
206 
207 


TITLE - PRTDSR - Printer DSR 
COMPUTER - BOBB Assembly Language 

ABSTRACT - This module contains the interface logic for the parallel 
printer port. 


NAME PRTDSR - Printer interface routines 
BUBTTL 


PUBLIC DEFINITIONS 


I 

PUBLIC 

PRINT 




PUBLIC 

PRT_IO 



1 

PUBLIC 

PRTINI 



1 ****** 
1 ****** 

»*»«#*»*i 

********1 

EXTERNAL REFERENCES 

t *»»#**«#*»«****»**#**#*»*»*#*#**«4 



1 

SECT 

ROMDAT 



1 

EXTRN 

PRCO__M: BYTE i Printer control 

latch memory 

(ROMDAT) 

I 


t #»»#»*»*#«#*******#*«»***»#*»*#«*4 

LOCAL CONSTANTS 



, ****** 




***»«**p* 

f 

1 

INCLUDE 

PEG: PORTADDR. EQU 



1 

INCLUDE 

PEG: LATCHES. EQU 



1 

INCLUDE 

PEG: VECTOR. EQU 



PRMASK 

EQU 

< PRBUSY+PRPAPO+PRSLCT+PRFAUL ) 1 

Make a printer mask 
*****#»*»*»*#•»»*»*«# 



CODE SEGMENT DEFINITION 

****************************************************************************** 


SECT ROMCOD 

ASSUME CB : ROMCOD, DS : ROMDAT 

****************************************************************************** 

MODULE ENTRY POINT 

****************************************************************************** 
PARALLEL PRINT PORT 'DSR ' - INTerrupt 4BH 

INPUT: AH » function: (see the file PEG: PRTOP. EQU) 

0 - output char to printer 

1 - initialize the printer 

2 - return printer status 

AL “ character to be printed (function O only) 
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208 

1 

OUTPUT: AH 

■ Status of printer as follows: 



209 

1 






210 

» 


Bit: 7 — 1 * 

FAULT 



211 

i 


6 - 1 «= 

SELECTED 



212 

1 


9 - 1 « 

PAPER OUT 



213 

l 


4 - 1 a 

BUSY 



214 

1 


0 - 1 » 

PRINTER TIME OUT 



215 

l 






216 

1 

AL 

■ character (unchanged) 



217 

l 

USED: AX 





218 

l 

STACK: 12 

bytes + what the function uses 










all V 





0000 ' 


220 

PRT. 

10 PROC 

FAR 


0000' 

FB 

221 


ST I 


i i i Interrupts back on 

0001 ' 

IE 

222 


PUSH 

DS 

i Save current DS 

0002' 

91 

223 


PUSH 

CX 


0003' 

93 

224 


PUSH 

BX 


0004' 

2E8E IE Cl 80 

229 


MOV 

DS# WORD PTR CS 

>: DSADDR+CSWRAP l Set my DS 

0009' 

E8 0004 

226 


CALL 

DO PRT 

i Do the function 

OOOC' 

9B 

227 


POP 

BX 


0000' 

99 

228 


POP 

CX 


OOOE ' 

IF 

229 


POP 

DS 


OOOF ' 

CF 

230 


I RET 


i *** RETURN *** 



231 

1 






232 

l 




0010' 


233 

DO_PRT PROC 

NEAR 

i dispatch to function specified by AH 

0010' 

08 E4 

234 


OR 

AH. AH 

i AH - 0 

0012' 

74 2A 

239 


JZ 

PRINT 


0014' 

FE CC 

236 


DEC 

AH 

> 

X 

1 

0016' 

74 09 

237 


JZ 

PRTINI 


0018' 

FE CC 

238 


DEC 

AH 

I AH - 2 

001 A' 

74 19 

239 


JZ 

PRBTAT 


001C' 

C3 

240 


RET 


i #** RETURN (invalid command) 



241 







242 

i *«i 






243 

« 

PRINTER INITIALIZATION ROUTINE 



244 

I 






249 

« 

INPUT: DS 

points to ROMDAT 



246 

» 

OUTPUT: AH 

- printer status (see above) 



247 

i 

USED: AX# 

CX 




248 

f 

STACK: 4 bytes 




n4Q 








0 ■" 




001 D' 


250 

PRTINI PROC 

NEAR 


0010' 

FA 

251 


CLI 


i Protect this 

001E ' 

AO 0001“ 

252 


MOV 

AL# PRCO_M 

i i i Get copy of latch from RAM 

0021 ' 

24 BF 

293 


AND 

AL# NOT PRINIT 

* i i 

0023' 

E6 03 

254 


OUT 

PRCO_P, AL 

Hi Diddle the INIT line low 

0029 ' 

B9 0096 

* 259 


MOV 

CX. 150 

i i ; Delay value for about 500 usee 

0028' 


256 

PRI1: 



0028' 

E2 FE 

257 


LOOP 

PR 11 

iff Delay for INIT to take effect 

002A ' 

OC 40 

258 


OR 

AL# PRINIT 

f i f 

002C ' 

E6 03 

259 


OUT 

PRCO P# AL 

hi Flip INIT back high 
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002E 1 
002F 4 


FB 

B4 00 


260 

261 

262 

263 

264 
269 
266 

267 

268 

269 

270 

271 

272 


BTI 

MOV 

JMP 


AH. 00 

SHORT PRBTAT 


i » i Rntora interrupt ititui 
i Bat 'no arror status' 
i Return with printer status 


PRINTER BTATUB ROUTINE 

INPUT: AH " hit zero has timeout status 

(Note that AH=*0 when STATUS called as 
OUTPUT: AH * status (see above) 

USED: AH, CX 

STACK: 4 


a function thru PRT 10) 


0031 ' 



273 

PRBTAT PROC 

NEAR 



0031 ' 

90 


274 

PUSH 

AX 

1 

Save character 

0032' 

E4 

01 

279 

IN 

AL.PRCIJ* 

1 

Read printer status port 

0034' 

24 

FO 

276 

AND 

AL. PRMABK 

1 

Mask off the non-printer stuff 

0036' 

34 

80 

277 

XOR 

AL. PRFAUL 

f 

Flip the (low true) FAULT bit 

0038' 

08 

C4 

278 

OR 

AH. AL 

< 

OR AL (real status) into AH (has 

003A ' 

99 


279 

POP 

CX 



003B ' 

BA 

Cl 

280 

MOV 

AL. CL 

1 

Restore the character 

003D ' 

C3 


281 

RET 


1 

*** RETURN *** 


282 

283 

284 
2B9 
286 
2B7 
288 

289 

290 

291 

292 

293 


PRINTER OUTPUT ROUTINE - Contains factory interface logic. If PAPER OUT 
remains active and BUSY is inactive, then the data is strobed with 
the AUTOFEED line instead of the normal BTROBE signal. 

INPUT: AL * character to be printed 

OUTPUT: AL ■ the character (unchanged) 

AH ■ printer status (see above) 

USED: AH. BL. CX 

STACK: 4 bytes 


003E ' 



294 

PRINT 

PROC 

NEAR 




003E ' 

8A 

D8 

299 


MOV 

BL. AL 

1 

Save character 


0040' 

B4 

00 

296 


MOV 

AH. 00 

1 

Reset status initially 


0042' 

B9 

C390 

297 


MOV 

CX. 90000 

l 

Delay count for about 1/3 second 


0049' 

E6 

02 

298 


OUT 

PRDA_P, AL 

1 

Put printer data out to latch 


0047' 



299 

PR1: 






0047' 

E4 

01 

300 


IN 

AL# PRC I P 


Read printer status latch 

10 

0049' 

A8 

10 

301 


TEST 

AL.PRBUSY 

l 

0: Printer busy 7 

4 

004 B' 

74 

06 

302 


JZ 

PR2 

1 

N: Continue 

4 

004D ' 

E2 

FB 

303 


LOOP 

PR 1 

f 

Y: Loop 

17 

004F ' 

B4 

01 

304 


MOV 

AH. 1 

l 

TIMEOUT: Bet timeout bit 

— 

0091 ' 

EB 

20 

309 


JMP 

SHORT PRXIT 

I 

and exit 

39 

0093' 



306 

PR2: 



1 

(- 

7 usee) 

0093' 

B9 

OOOA * 

307 


MOV 

CX. 10 

f 

do a short wait before writing data 


0096' 

E2 

FE 

308 


LOOP 

4 

i 






309 

i 

IN 

AL. PRC I P 

1 

Look at printer status latch (already 

in AL) 

0098 ' 

A8 

20 

310 


TEST 

AL, PRPAPO 

l 

Q: Paper Out 7 (Paperout AND Not Busy 

is 




311 




1 

indication of factory connection) 






PRTD8R - Printer intirfici routinai 
PRTDSR.8RC 


005A ' 

FA 


312 


CLI 

009B ' 

AO 

0001- 

313 


MOV 

009E ' 

74 

09 

314 


JZ 




319 



0060 ' 

24 

EF 

316 


AND 

0062 ' 

E6 

03 

317 


OUT 

0064 ' 

90 


318 


NOP 

0069 ' 

34 

10 

319 


XOR 

0067 ' 

EB 

07 

320 


JMP 

0069 ' 



321 

PR3: 


0069 ' 

24 

DF 

322 


AND 

006B ' 

E6 

03 

323 


OUT 

006D ' 

90 


324 


NOP 

006E ' 

34 

20 

329 


XOR 

0070' 



326 

PR4: 


0070 ' 

E6 

03 

327 


OUT 

0072 ' 

FB 


328 


BTI 

0073' 



329 

PRXIT: 


0073' 

BA 

C3 

330 


MOV 

0079' 

EB 

BA 

331 


JMP 




332 

i 





333 


END 
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(Protect this) 


AL.PRCO_M 

1 f 1 

Oet copy of latch from memory 

PR3 

J J 1 
1 1 i 

N: Use normal interface 
Y: Use factory interface 

AL. NOT PRAUTO 

i ) 1 

(Use the Autofeed signal as data 

PRCO_P. AL 

l i i 
1 1 i 

Set the autofeed signal loui 
Delay 

AL. PRAUTO 

1 f 1 


SHORT PR4 

l 1 1 

Finish up like normal 

AL. NOT PRSTRB 

1 l 1 


PRCO_P» AL 

1 1 f 
i i i 

Set the strobe low 
Wait a bit 

AL. PRSTRB . 

1 1 I 


PRCO_P» AL 

J f i 
i i 1 

Bring it back high 

AL. BL 

i Restore saved character 

SHORT PRBTAT 

i Oo get printer status 
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-0000 


*0000 


—0008 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

205 

206 
207 


»**«•#•*»•**»»**»*»»»«#*•*»««#*»*»»*««*«»»*»*««**#»»»«»»**#»»«*•»»#«»*»#»«»««» 
TITLE - PUPTS1 - PEGASUS POWERUP TEST CODE, OPTION RAM AND ROMS TEST. 
ABSTRACT - THE TEST IS DESIGNED TO CHECK OUT THE OPTION ROM AND RAM. 

ANY ADDITIONAL ROMS ARE CALLED IF THEY TEBT OUT OK TO ALLOW 
INITIALIZATION OR BOOTING OF OTHER DEVICES IN THE SYSTEM. 

REGISTERS USED - ALL 

STACK USED - 4 BYTES UNLESS THERE IS A ROM ERROR, THEN M DSPERR " +2. 

* Register is saved during call to DSPERR to fix crash after had option ROM 
CRC. 

* EXTERN* are put into SECT sections to correct bug causing incorrect value 
of PRCOJ1 to be linked tuhich caused unexpected printer reset. 

* power up RAM test changed to alloui 786432 bytes of main memory (originaly 

524288 bytes! also fixes bugs concerning large amounts of main RAM 


NAME PUPTSi 

BUBTTL PEGASUS POWERUP DIAGNOSTIC TESTS 


PUBLIC DEFINITIONS 


PUBLIC PUPTSI i MODULE ENTRY POINT 


EXTERNAL REFERENCES 


EXTERN OPRERR: ABS 
EXTERN RMPERR: ABS 
EXTERN ROMERXiABS 
EXTERN ROMS I Z : ABS 
EXTERN XNMERR : ABS 
BECT ROMCOD 

ASSUME CS: ROMCOD 
EXTERN ARGHHH: NEAR 
EXTERN DECLED: NEAR 
EXTERN DKBOOT: NEAR 
EXTERN DSPERR: NEAR 
EXTERN NMIGO: FAR 
EXTERN ROMTST: NEAR 
EXTERN SY6R0M: BYTE 
BECT ROMDAT 

EXTERN PRCO M: BYTE 


i OPTION RAM FAIL DURING PUPTST 
i RAM PARITY ERROR 
i ROM ERRORS ERROR CODE 
l SIZE OF ROM SPACE, 
i UNEXPECTED NMI 


I ADDRESS OF FAILURE ROUTINE 
i ADDRESS OF DECREMENT LED ROUTINE 
i ADDRESS OF POWERUP BOOT ROUTINE 
i ADDRESS OF FAILURE ROUTINE 
i NMI INTERRUPT ENTRY 
I ADDRESS ROM TEBT SUBROUTINE 
i ADDRESS OF SYSTEM ROM 

i ADDRESS OF LATCH SAVE BYTE 


»«*»««»*»#***«*«**»*«»*»»**«#*»**«##»****»****»***»***»***»*»*#«»*»»»»»**«*»»« 


LOCAL CONSTANTS 

***************** ************ ************************************************* 

INCLUDE PEG: PORTADDR.EGU 
INCLUDE PEG: LATCHES. EQU 
INCLUDE PEG: VECTOR. EQU 


NMIVEC EQU NMI INT*4 iNMI INTERRUPT VECTOR LOCATION 

i ****************************************************************************** 
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208 

l 


MODULE ENTRY POINT 




209 

l ****** 


I********************* 



-0000 

210 


SECT 

ROMCOD 

i ALL CODE 19 PLACE HERE 




211 


ASSUME CS: ROMCOD, DS: ABSO, 

ES: ABSO 




212 

1 







213 

1 

DO NOTHING IF WARM RESET, 

ELSE CHECK OPTION RAM. 




214 

1 




0000 ' 



213 

PUPTB1 

PROC 

NEAR 


0000 ' 

2EA1 C 198 

216 


MOV 

AX, WORD PTR CS: MEMSIZ+CSWRAP I GET SIZE OF RAM. 




217 

i 



l 1000H <- RAM8IZ <- COOOH IF HARM REBET 

0004 ' 

Bl 

04 

218 


MOV 

CL, 4 

I ADJUST BIZE SO THAT RANGE IS FROM 

0006 ' 

D3 

CO 

219 


ROL 

AX, CL 

, 1 <- AX <- OCH 

0008 ' 

48 


220 


DEC 

AX 

, o <- AX (- OBH 

0009 ' 

3D 

OOOC 

221 


CMP 

AX.OOOCH 

iQ: WARM REBET7 

OOOC' 

72 

73 

222 


JB 

OPRXIT 

1 Yi EXIT TEST ROUTINE 




223 

f 







224 

I 

TEST 

OPTION RAM. SET UP PARITY VECTOR AND FILL RAM. 




223 

1 




OOOE ' 

FA 


226 

OPTRM: 

CLI 


1 DISABLE INTERRUPTS 

OOOF ' 

2EC7 06 C008 0032" 

227 


MOV 

WORD PTR CS: NMIVEC+CSWRAP, OFFSET OERROR I CHANGE PARITY VECTOR. 

0016 ' 

BE 

1000 

228 


MOV 

SI. lOOOH 

l INITIAL OPTION RAM SEGMENT 

0019' 

8E 

DE 

229 

OPRAM: 

MOV 

DS, 81 

I SET UP RAM SEGMENT 

001 B ' 

BE 

C6 

230 


MOV 

ES. SI 


001D ' 

BD 

0002 

231 


MOV 

BP, 000000 1 OB 

i WALKING ONE 

0020' 

31 

FF 

232 

OPRO: 

XOR 

DI, DI 

iBET UP START OF RAM TO TEST 

0022' 

8B 

C3 

233 


MOV 

AX, BP 

» GET WALKING ONE TO AX. 

0024' 

D1 

CB 

234 


ROR 

AX. 1 

IBET UP THE CARRY BIT 

0026' 

B9 

8000 

233 


MOV 

C X , 8000H 

i BIZE OF OPTION RAM 

0029' 

AB 


236 

0PR1: 

STOS 

WORD PTRCDI 3 

l STORE WALKING ONE 

002A ' 

D1 

DO 

237 


RCL 

AX, 1 

i WALK IT 

002C ' 

E2 

FB 

238 


LOOP 

OPR 1 

! DO THE WHOLE SEGMENT. 




239 








240 

1 







241 

I 

READ 

AND CHECK THE OPTION 

RAM SEGMENT 




242 

1 




002E ' 

8B 

DD 

243 


MOV 

BX.BP 

» GET INITIAL PATTERN 

0030' 

D1 

CB 

244 


ROR 

BX, 1 

iBET UP THE CARRY BIT 

0032 ' 

9F 


243 

0PR2: 

LAHF 


iSAVE FLAGS 

0033 ' 

8B 

D3 

246 


MOV 

DX, BX 

1 CHECK BYTE 

0033' 

33 

13 

247 


XOR 

DX , IDll 

i IS THIS OK? 

0037' 

73 

19 

248 


JNZ 

OERROR 

IN: JUMP 

0039' 

9E 


249 


BAHF 


i GET FLAGS 

003A ' 

D1 

D3 

230 


RCL 

BX, 1 

iNEXT PATTERN TO CHECK 

003C ' 

47 


231 


INC 

DI 

l BUMP POINTERS 

003D ' 

47 


232 


INC 

DI 

i BUMP POINTER 

003E ' 

73 

F2 

253 


JNZ 

0PR2 

i CONTINUE TILL FINISHED 

0040' 

F7 

D3 

234 


NOT 

BP 

i BET UP FOR WALKING ZERO 

0042' 

21 

ED v 

233 


AND 

BP. BP 

I Qi SECOND LOOP? 

0044' 

78 

DA 

256 


JS 

OPRO 

»N» GO FOR NEXT LOOP 

0046' 

81 

C6 1000 

237 


ADD 

61. 1000H 

i BUMP TO NEXT SEGMENT. 

004A ' 

81 

FE C 000 

258 


CMP 

SI, OCOOOH 

iGi END OF POSSIBLE RAM? 

004E ' 

73 

C9 

259 


JNZ 

OPRAM 

i Ni JUMP AND TEST IT. 
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0030 ' 

EB 

2C 

260 


JMP 

SHORT OPREND 



l Yi BAVE HEM SIZE AND CONTINUE 




261 










262 

1 









263 

1 

OPTION 

RAM END OR FAILURE 

ROUTINE 




264 

1 






0032 ' 

F7 

DB 

263 

OERROR: 

NEO 

BX 



ITRY WORD WITH INVERSE VALUE ALSO 

0034' 

B9 

10 

266 


MOV 

WORD PTRCDI 3# BX 



i WRITE INVERTED PATTERN 

0036 ' 

33 

ID 

267 


XOR 

BX. WORD PTRCD13 



l GET BITS IN ERROR INTO BX 

0038' 

09 

DA 

268 


OR 

DX. BX 



i COMBINE WITH ORIGINAL ERROR BITS 

003A' 

B9 

0010 

269 


MOV 

CX. 16 



l DO WHOLE WORD. 

005D ' 

01 

EA 

270 

OERRO: 

BHR 

DX. 1 



iQj ERROR BIT? 

005F ' 

73 

02 

271 


JNB 

OERRl 



» Ni CONTINUE CHECK 

0061 ' 

FE 

C3 

272 


INC 

CH 



I Yi INC ERROR BIT COUNT 

0063' 

FE 

C9 

273 

OERRl: 

DEC 

CL 



1 Gi 16 BITB YET? 

0063' 

73 

F6 

274 


JNZ 

OERRO 



1 Ni JUMP. 

0067' 

80 

FD 04 

273 


CMP 

CH# 4 



iQi MORE THAN FOUR ERRORS? 

006A ' 

77 

12 

276 


JA 

OPREND 



I Y: JUMP. MUST BE NO RAM. 

006C ' 

8B 

C6 

277 


MOV 

AX. 81 



l CALCULATE ERROR CODE FROM ADDRESS. 

006E ' 

4E 


278 


DEC 

81 



t SHORTEN AVAILABLE RAM TO REQUIRE TEST 

006F ' 

B 1 

OC 

279 


MOV 

CL# 12 



l SHIFT RIGHT 12 BITB 

0071' 

D3 

E8 

280 


8HR 

AX. CL 




0073' 

04 

00 * 

281 


ADD 

AL# OPRERR-l 



f PUT ERROR CODE IN AL 

0073' 

3C 

oo- 

282 


CMP 

AL# OPRERR+6 



iQi LEGAL ERROR CODE? 

0077' 

76 

02 

283 


JBE 

0ERR2 



1 Yl JUMP AND DISPLAY IT 

0079' 

BO 

oo- 

284 


MOV 

AL, OPRERR+7 



i Ni INDICATE ERROR IN LAST 4 BANKS. 

007B ' 

E8 

0009- 

2B3 

0ERR2: 

CALL 

DBPERR 



1 DISPLAY IT 




286 

f 









287 

i 

FINISHED WITH RAM TEST. 







288 

i 






007E ' 

2E89 36 Cl 98 

289 

OPREND: 

MOV 

WORD PTR CB: MEMSIZ+CSWRAP. SI i BAVE THE TOP OF RAM VALUE. 

0083' 



290 

OPRXIT : 





1 RESTORE NMI INTERRUPT VECTOR 




291 


ASSUME 

DB: ROMDAT 




0083' 

2EC7 06 C008 OOOA- 

292 


MOV 

WORD PTR CS:NMIVEC+CBWRAP. OFFSET NMIOO 

008A ' 

2E8E IE CIBO 

293 


MOV 

DS* WORD PTR CS: CBWRAP+DSADDR » BET UP DB TO ROMDAT. 

008F ' 

AO 

oooo- 

294 


MOV 

AL. PRCOJM 



I GET LATCH VALUE 

0092' 

24 

F7 

293 


AND 

AL. NOT PARIEN 



l DISABLE PARITY INTERRUPTS 

0094' 

E6 

03 

296 


OUT 

PRCO_P# AL 




0096' 

OC 

08 

297 


OR 

AL. PARIEN 



l REENABLE THEM 

0090' 

E6 

03 

298 


OUT 

PRCO__P# AL 




009A' 

FB 


299 


BTI 




1 RESTORE INTERRUPT CONDITION 




300 










301 




*«4 






302 

f 

THIS ROUTINE CHECKS ROMS 

TO 

SEE 

IF THEY ARE THERE. AND OK, AND THEN 




303 

i 

CALLB 

THEM TO ALLOW THEM 

TO 

INITIALIZE ANY HARDWARE OR BOOT. 




304 

i 









303 

i 

THE FIRST WORD IN A ROM SHOULD 

BE THE SIZE OF THE ROM IN BYTES. 




306 

» 

THE SECOND WORD SHOULD BE 

THE ADDRESS OF A POWERUP BOOT SUBROUTINE 



% 

307 

i 

WHICH 

IB CONTAINED IN THE 

ROM. 





308 


«*»«*»« 


»*4 



009B ' 

31 

DB 

309 


XOR 

BX. BX 



i POINT TO FIRST ROM IN BEGMENT 

0090 ' 

BE 

0003# 

310 


MOV 

SI.ROMERX 



1 GET ERROR CODE 

OOAO ' 

2E8B 07 

311 

R0MT2: 

MOV 

AX# CS: CBX3 



(GET ROM SIZE WORD 
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00A3 ' 

SB 

E8 

312 


MOV 

BP, AX 


iSAVE FOR ROM TEST 

00A9 ' 

B 1 

OD 

313 


MOV 

CL. 13 


INUMBER OF BITS TO CHECK. 

00A7 9 

D1 

E8 

314 

R0MT3: 

BHR 

AX. 1 


i CHECK FOR VALID SIZE 

00A9 9 

72 

04 

319 


JB 

R0MT4 


# IF CARRY. JUMP 

GOAD 9 

FE 

C9 

316 


DEC 

CL 


1 Oi DONE YET? 

OOAD 9 

79 

FB 

317 


JNZ 

R0MT3 


» Ni JUMP. 

GOAF' 

79 

18 

318 

R0MT4: 

JNZ 

R0MT7 


i IF NOT ZERO. NO ROM HERE 

OOB I 9 

8C 

C8 

319 


MOV 

AX, CS 



00B3 9 

8E 

CO 

320 


MOV 

ES, AX 


iBET UP ROM BEGMENT FOR 'ROMTST ' 

OOB 9 9 

93 


321 


PUSH 

BX 


iSAVE THE ROM STARTING ADDRESS. 

00B6 9 

E8 

OOOB" 

322 


CALL 

ROMTST 


lOO TEST THE ROM 

00B9 9 

5B 


323 


POP 

BX 



OOBA 9 

74 

09 

324 


JZ 

R0MT6 


i IF OK. JUMP. 

OOBC 9 

8B 

C6 

329 


MOV 

AX, SI 


i GET ERROR CODE 

OOBE 9 

93 


326 


PUSH 

BX 


iSAVE BTARTING ADDRESS 

OOBF' 

E8 

0009” 

327 


CALL 

DSPERR 


l DISPLAY IT 

00C2 9 

5B 


328 


POP 

BX 

* 

i 

00C3 9 

EB 

04 

329 


JMP 

SHORT R0MT7 


lOO TO NEXT ROM 




330 

f 








331 

i 

SECOND WORD OF ROM OR EPROM 

CONTAINS ADDRESS OF BOOT ROUTINE 




332 

i 

THIS 

ROUTINE SHOULD SAVE SI 

AND 

BX. IF NO BOOT ROUTINE IS DESIRED. 




333 

i 

THEN 

THE WORD SHOULD POINT 

TO A 

NEAR RETURN INSTRUCTION. 




334 

i 





G0C9 9 

2EFF S7 02 

339 

R0MT6: 

CALL 

CS: WORD PTR 2CBXJ 


IGO TO CODE POINTED TO BY SECOND WORD 

00C9 9 

46 


336 

R0MT7: 

INC 

61 


» NEXT ERROR CODE. 

OOCA 9 

80 

C7 20 

337 


ADD 

BH. 20H 


IROMS ARE ON ROMSIZ B0UNDARY8. 

OOCD 9 

81 

FB 000C M 

338 


CMP 

BX. OFFSET BYSROM 


iQi ALL DONE? 

00D1 ' 

79 

CD 

339 


JNZ 

R0MT2 


i Ni JUMP AND CONTINUE. 

00D3 ' 

E8 

0007 M 

340 


CALL 

DECLED 


i Decrement LEDe for final time 

00D6 9 

E9 

0008 M 

341 


JMP 

DKBOOT 






342 


END 





No trrori detected 
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1 i ****************************************************************************** 

2 i TITLE - PUPTST - PEGASUS POWERUP TEST CODE 

3 i ABSTRACT - THE TEST IS DESIGNED TO CHECK OUT THE SYSTEM ROM AND RAM AND TO 

4 i ALLOW THE FACTORY TO ACTIVATE ANOTHER EPROM FOR TEST PURPOSES. THE 

3 I TEST IB RUN WITH INTERRUPTS DISABLED AND NEEDS NO RAM FOR INITIAL 

6 i CHECKOUT. 

7 I 

B » REGISTERS USED - ALL 
9 » 

10 f STACK USED - BS: SP POINTS TO A ROM RETURN TABLE TO AVOID USING RAM. 

11 i 

12 I ****************************************************************************** 

13 NAME PUPTST 

14 SUBTTL PEGASUS POWERUP DIAGNOSTIC TESTS 

16 i ****************************************************************************** 

17 i PUBLIC DEFINITIONS 

18 I ****************************************************************************** 

19 PUBLIC ROMTST i ROM CRC TEST ROUTINE 

20 PUBLIC PUPTST I POWER UP TEST ENTRY 

21 I ****************************************************************************** 

22 l EXTERNAL REFERENCES 

23 ******************************************************************************* 


-0000 

24 


SECT 

ROMCOD 



23 


EXTERN 

IN I CRT : NEAR 

l CRT HARDWARE INITIALIZATION ROUTINE 


26 


EXTERN 

EPROM: BYTE 

i ADDRESS OF BEGINNING OF EPROM 


27 


EXTERN 

SYSROM: BYTE 

i ADDRESS OF BEGINNING OF SYSTEM ROM 


2B 


EXTERN 

DSPDIE: NEAR 

i ADDRESS OF FAILURE ROUTINE 


29 


EXTERN 

LED110 ABS 

iROM FAILED ERROR CODE 


30 


EXTERN 

LEDlOl: ABS 

l SYSTEM RAM FAILED ERROR CODE 


31 


EXTERN 

LEDIOO: ABS 

I PASSED SYSTEM RAM TEST , NEXT. 


32 


EXTERN 

RAM INI: NEAR 

i ADDRESS OF RAM INIT ROUTINE. 


33 


EXTERN 

ROMSIZ: ABS 

) SIZE OF THE SYSTEM ROM 


34 


EXTERN 

R0MF4: NEAR 

i ADDRESS OF FACTORY ROM 


3 3 
36 

f 


LOCAL CONSTANTS 


37 

J 

INCLUDE 

PEG: PORTADDR. EQU 


3B 

l 

INCLUDE 

PEG: LATCHES. EGU 


39 

i 

INCLUDE 

PEG: FLOPPY. EQU 



40 

« 

INCLUDE 

PEG: VECTOR. EQU 



41 

1 

INCLUDE 

PEG: WINCHSTR. EQU 


42 

i 

INCLUDE 

PEG: 



43 

I ****************************************************************************** 


237 

1 




-oooc 

238 

RAMBEG 

EGU 

BRKINT*4 

i START OF VALID RAMTEST 

— OOOB 

239 

NMIVEC 

EQU 

NMI INT *4 

i NMI INTERRUPT VECTOR LOCATION 

-7FFA 

240 

RMTSSZ 

EQU 

(O-RAMBEG) SHR 

1 (SIZE OF RAM IN WORDS 


241 

i 





242 

l ****************************************************************************** 


243 

i 


MODULE 

ENTRY POINT 


244 

i ****************************************************************************** 

-0000 

243 


SECT 

ROMCOD 

sALL CODE IS PLACE HERE 


246 


ASSUME 

CS: ROMCOD 
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247 

« 





0000' 



24B 

PUPTBT 

PROC 

FAR 

I POWER UP TEST ENTRY POINT 


0000' 

2EB1 3E 000 A - 4946 

249 


CMP 

CS: WORD PTR R0MF4# 'IF' 

iGi FACTORY INTERFACE? 


0007' 

79 

03 

290 


JNZ 

Tl 

» Ni CONTINUE POWER UP. 


0009' 

E9 

0000 M 

291 


JMP 

NEAR PTR R0MF4+2 

I Yi GO TO FACTORY EPROM. 





292 

I 








293 

i 

INITIALIZE THE I/O SYSTEM TO PREVENT PROBLEMS. 





294 

i 





OOOC' 

BO 

00 

299 

Tl: 

MOV 

AL# OOOOOOOOB 



OOOE ' 

E6 

00 

296 


OUT 

DSKC P* AL 

1 SHUT OFF TIMER8 


0010' 

E6 

02 

297 


OUT 

PRDA _P# AL 

(CLEAR PRINTER DATA LATCH 


0012' 

BO 

70 

29B 


MOV 

AL. (PRAUTO+PRSTRB+PRINIT) l 'PRCO P ' latch 


0014' 

E6 

03 

299 


OUT 

PRCO P, AL 



0016' 

BO 

OF 

260 


MOV 

AL. OFH 

i 'DSK8_P ' latch. Daialact all 

drives 

0018' 

E6 

04 

261 


OUT 

DSKS_P# AL 



OOl A ' 

BO 

10 

262 


MOV 

AL. WRSTCM 

(RESET THE WINCHESTER 


OOIC' 

E6 

31 

263 


OUT 

WINR8T. AL 



OOIE ' 

DB 

E3 

264 


DB 

ODBH. 0E3H 

I 8087 'FNINIT ' INSTRUCTION - TO RESET 




269 




1 A POSSIBLE 8087 





266 

i 








267 

i 

INITIALIZE THE CRT HARDWARE 






26B 

i 





0020' 

BC 

CB 

269 


MOV 

AX# CS 

iBET UP A TEMPORARY STACK 


0022' 

BE 

DO 

270 


MOV 

SS. AX 

1 SEGMENT SAME AS CODE 


0024' 

BC 

OODF- 

271 


MOV 

BP, OFFSET T6TACK 

( TOP OF LIST OF RETURN WORDS IN ROM 

0027' 

E9 

0001- 

272 


JMP 

INICRT 

lOO BET UP THE CRT HARDWARE 





273 

f 








274 

i 

CHECK 

OUT THE SYSTEM ROM 






279 

i 





002A ' 

BD 

0009# 

276 

T1P9: 

MOV 

BP, ROMS I Z 

i GET THE SIZE OF THE ROM 


002D ' 

BC 

CB 

277 


MOV 

BX.C8 



002F ' 

BE 

C3 

27B 


MOV 

ES. BX 

i START SEGMENT OF ROM 





279 


ASSUME 

ES: ROMCOD 



0031 ' 

BB 

0003- 

280 


MOV 

BX. OFFSET 8YSR0M 

i START ADDRESS OF ROM 


0034' 

BO 

oo- 

281 


MOV 

AL# (LED1 10+PRAUT0+PRSTRB+PRINIT) I TURN OFF FIRST 

LED 

0036' 

E6 

03 

282 


OUT 

PRCO_P, AL 



0038 ' 

E9 

0083 

283 


JMP 

ROMTST 

IGO CHECK IT 





204 




iQi ROM OK? 


003B ' 

74 

OD 

289 

T1P6: 

JZ 

RAMTST 

i Yi JUMP. 





286 









287 

i 








2B8 

i 

ROM ERROR SHUTDOWN ROUTINES 






289 

i 





003D ' 

BO 

09* 

290 


MOV 

AL# LED 110 f ERROR 

CODE FOR ROM FAIL. 


003F ' 

30 

D2 

291 


XOR 

DL.DL i NOTHING FOR PARALLEL PORT 


0041 ' 

E9 

0004” 

292 

ERROR: 

JMP 

DSPDIE i STOP 

POWERUP 





293 

i 







% 

294 

i 

RAM ERROR SHUTDOWN ROUTINE 






299 

i 





0044' 



296 

RERROR 

PROC 

FAR 



0044' 

08 

F2 

297 


OR 

DL.DH l COMBINE BYTES IN THE WORD FOR PARALLEL 

PORT 

0046' 

BO 

06* 

298 


MOV 

AL. LED101 J ERROR 

CODE FOR SYSTEM RAM FAIL. 
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0048 ' 

EB 

F7 

299 


JHP 

ERROR 







300 










301 

l 

RAMTEST 

THIS IB A SIMPLE TEBT OF THE BYBTEM RAM. IT IB 


r. 

i 




302 

1 


USED TO CLEAR THE PARITY BIT IN ALL OF THE RAM, QUICKLY CHECK 


i 




303 

i 


THE RAM FOR ERRORS. 







304 







004A ' 

BO 

00 M 

305 

RANT8T : 

MOV 

AL, (LEDtOl+PRAUTO+PRBTRB+PRINm I ADVANCE LED INDICATION 



004C ' 

E6 

03 

306 


OUT 

PRCO_P, AL 

1 FOR NEXT TEBT 



004E ' 

31 

E4 

307 


XOR 

BP, SP 

i CLEAR STACK POINTER 



0050' 

8E 

D4 

308 


MOV 

S3. BP 

J SET UP STACK SEGMENT 



0032 ' 

8E 

DC 

309 


MOV 

DS. SP 

( SET UP DATA SEGMENT 



0054 ' 

8E 

C4 

310 


MOV 

ES. BP 

i SET UP EXTRA SEGMENT 






311 

l 









312 


ASSUME 

DS: ABSO, EB: ABSO, BB: ABBO 



0056 ' 

8B 

26 0198 

313 


MOV 

SP, WORD PTR MEM3IZ 

i GET WARM RESET FLAG INTO SP. 



005A ' 

BE 

0008 

314 


MOV 

SI. OFFSET NMIVEC 

(POINTER TO NMI VECTOR 



005D ' 

C7 

04 0044- 

315 


MOV WORD PTREBI 3, OFFSET RERROR 

(STORE THE NMI ERROR VECTOR OFFSET 



0061 ' 

0C 

4C 02 

316 


MOV 

21613. CB 

(STORE THE SEGMENT ( SAME AB THIS CODE) 



0064 ' 

81 

3C 0044- 

317 


CMP WORD PTRC6I 3, OFFSET RERROR 

(Qi NMI ERROR VECTOR OFFSET OK? 


, 

0068' 

75 

07 

318 


JNZ 

VECERR 

( N( JUMP AND FLAG ERROR. 



006A' 

01 

7C 02 0000' 

319 


CMP 

WORD PTR 2C8I 3, ROMCOD 

(Qi NMI ERROR VECTOR SEGMENT OK? 



006F ' 

74 

05 

320 


JZ 

ROOO 

( Y( CONTINUE THE TE8T. 



0071 ' 

BC 

55AA 

321 

VECERR: 

MOV 

BP, 55AAH 

(FLAG VECTOR ERROR OCCURRED. 



0074 ' 

EB 

04 

322 


JMP 

SHORT ROO 




0076' 

BO 

oo- 

323 

ROOO: 

MOV 

AL. (PAR IEN+LED101+PRAUT0+PR8TRB+PR INIT ) 1 TURN ON PARITY INTR« 



0078 ' 

E6 

03 

324 


OUT 

PRCO_P. AL 




007A ' 

8B 

C4 

325 

ROO: 

MOV 

AX, BP 

l lOOOH I- RAMBIZ <- BOOOH IF HARM RESET 



007C ' 

00 

EC 10 

326 


SUB 

AH. 10H 

(Q: WARM RESET? 



007F ' 

25 

8FFF 

327 


AND 

AX. BFFFH 

( 



0002' 

74 

37 

320 


JZ 

REND 

( Y( EXIT TEST ROUTINE 



0004' 

BD 

0002 

329 


MOV 

BP, 0000001 OB 

(WALKING ONE 



0007' 

B9 

7FFA 

330 

RO: 

MOV 

CX. OFFSET RMTBSZ 

(BET UP SIZE OF RAM TO TEST 



008A ' 

BF 

OOOC 

331 


MOV 

DI.RAMBEO 

(BET UP START OF RAM. 



008D ' 

8B 

F7 

332 


MOV 

BI.DI 

(COPY TO SI FOR LATER. 



008F ' 

BB 

C5 

333 


MOV 

AX, BP 

l GET WALKING ONE TO AX. 



0091 ' 

D1 

C0 

334 


ROR 

AX. 1 

(BET UP THE CARRY BIT 


• 

0093' 

AB 


335 

Rl: 

ST08 

WORD PTR CDI3 

l STORE WALK I NO ONE 



0094' 

D1 

DO 

336 


RCL 

AX, 1 

(WALK IT 



0096' 

E2 

FB 

337 


LOOP 

Rl 




0090' 

E2 

FE 

330 


LOOP 

* i ALLOW 

RAM TO FORGET IF REFRESH IS NOT WORKING 






339 










340 

i 









341 

f 

READ AND CHECK THE STORED PATTERN 






342 

i 





, 

009A ' 

8B 

DD 

343 


MOV 

BX, BP 

(GET INITIAL PATTERN 



009C ' 

B9 

7FFA 

344 


MOV 

CX. OFFSET RMTBSZ 

(SIZE OF RAM IN WORDS 



009F ' 

D1 

CB 

345 


ROR 

BX. 1 

(BET UP THE CARRY BIT 



00 A 1 ' 

9F 

% 

346 

R2: 

LAHF 


(SAVE FLAGS 



OOA2 ' 

BB 

D3 

347 


MOV 

DX, BX 

(GET THE WORD THAT WAS WRITTEN. 



00A4 ' 

33 

14 

348 


XOR 

DX. CBI 3 

( Qi IS THIS OK? 



00A6 ' 

75 

9C 

349 


JNZ 

RERROR 

( N: JUMP 



00A8 ' 

46 


350 


INC 

SI 

■ / "\ 

(BUMP POINTERS 
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00A9 * 

46 



331 


INC 


SI 



OOAA ' 

9E 



332 


SAHF 



i GET FLAGS 


OOAB ' 

D1 

D3 


353 


RCL 


BX, 1 

iNEXT PATTERN TO CHECK 


00 AD * 

E2 

F2 


354 


LOOP 


R2 

i CONTINUE TILL FINISHED 


OOAF # 

F7 

D3 


353 


NOT 


BP 

» SET UP FOR WALKING ZERO 


00B1 ' 

21 

ED 


336 


AND 


BP. BP 

iQi SECOND LOOP? 


00B3 * 

78 

D2 


337 


JS 


RO 

iNi GO FOR NEXT LOOP 


00B3 ' 

81 

FC 

33AA 

338 


CMP 


SP.93AAH I Qi WERE VECTORS BAD? 


00B9 # 

74 

B9 


339 


JZ 


RERROR 

i Yl GO REPORT ERROR. 






360 

f 










361 

f 

MAIN 

RAM OK. 







362 

1 






OOBB 9 

E9 

0008" 

363 

REND: 

JMP 


RAMINI 

iRUN THE RAM INITIALIZATION 






364 











363 


*«»«« 

»**! 

»*««*«* 







366 

i 



LOCAL 

SUBROUTINES 






367 



I»»*f 

f»*«*»* 

******** ************************************** 






36B 

i 

ROM TEST 

THIS TEST CHECKS OUT THE SYSTEM ROM USING A 

CRC 16 





369 

i 

ROUTINE 


TYPE CHECK. THE LAST WORD IN THE ROM IS EXPECTED TO 





370 

I 




CONTAIN THE CORRECT CRC REMAINDER SUCH THAT 

WHEN THE 





371 

\ 




TEST IS MADE. THE REMAINDER 18 ZERO. 






372 

I 

ON ENTRY 

BP* SIZE OF ROM 






373 

i 




BX* OFFSET OF ROM 






374 

i 




EB* SEGMENT OF ROM 






373 

I 




AX. CX ARE USED 






376 

i 




6I.DI.DS.ES ARE NOT CHANGED 






377 

i 

ON EXIT 


DX*REMAINDER 






378 

i 




ZF-SET IF DX*0 






379 


OOBE ' 




380 

ROMTST 

PROC 


NEAR 

J ENTRY POINT 


OOBE ' 

31 

D2 


381 


XOR 


DX. DX 

f CLEAR THE INITIAL REMAINDER 


OOCO' 

268A 27 

3B2 

R0NTS1 : 

MOV 


AH. EB: 

CBX1 i GET BYTE 






383 

l 










384 

I 

THIS 

IS 

THE KERNAL OF THE CRC16 ROUTINE (FOR A BYTE). 






383 

i 






00C3 * 

B9 

0008 

386 


MOV 


CX.8 

1 LENGTH OF BYTE 


00C6 * 

BA 

C4 


387 

T3: 

MOV 


AL, AH 

i GET BYTE TO TEMP REGISTER 


OOCB * 

30 

DO 


388 


XOR 


AL. DL 

i CHECK IF THE LOW BITS ARE EQUAL 


OOCA 9 

D1 

EA 


389 


SHR 


DX. 1 

1 SHIFT REMAINDER RIGHT 


OOCC'- 

D1 

EB 


390 


SHR 


AX. 1 

iMOV LOW BIT TO CARRY AND SHIFT BYTE 

RIGHT 

OOCE ' 

73 

04 


391 


JNB 


T4 

i IF LOW BIT OFF, JUMP. 


OODO ' 

B1 

F2 

A001 

392 


XOR 


DX.0A001H iXOR GENERATOR AND REMAINDER. 


00D4 9 

E2 

FO 


393 

T4: 

LOOP 


T3 

i FINISH BYTE 






394 

i 






00D6 * 

43 



395 


INC 


BX 

» POINT TO NEXT BYTE IN ROM 


00D7 ' 

4D 



396 


DEC 


BP 

i DECREMENT COUNT 


OODB 9 

73 

E6 


397 


JNZ 


R0MTS1 



OODA' 

31 

D2 

% 

398 


XOR 


DX. DX 

» FORCE ROM TO BE CORRECT 


OODC 9 

21 

D2 


399 


AND 


DX. DX 

i Qi IS THE ROM CORRECT? 


OODE 9 

C3 



400 


RET 









401 

i ****************************************************************************** 





402 

i 




MODULE DATA DEFINITIONS 
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403 


««*««««( 


*»««««*« *»»**«««« 




404 

1 





OODF 9 


403 

TBTACK 

LABEL 

MORD 

lA STACK WHICH 

IS USED DURINQ POWERUP TO RETURN 

OODF ' 

002 A “ 

406 


DW 

OFFBET TIPS 

i RETURN ADDRESS 

FOR INICRT ROUTINE 

OOEI 9 

003B" 

407 


DM 

OFFSET TIP6 

(RETURN ADDRESS 

FOR RON TEST ROUTINE 



408 

l 







409 


END 





No trron detected 
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-FFFF 


-0000 

*0000 

-0000 


| i ********* ****** ************** ****«*«« *»*****»**«*****»»«»»#»«*»»*»*»««»«*«««#« 

3 i TITLE - RAMINI - ROMDAT data area initialization 

3 i COMPUTER - 0000 Assembly Language (BSO Assembler) 

4 f ABSTRACT - This module is responsible for setting up the ROM's data 

5 » area in RAM. This consists of initializing the timing event blocks* 

6 i initializing the three hardware latches and their corresponding 

7 i memory locations* and setting up a stack for the rest of the 

0 i power up code to use. It also sets up the BOBB's normal system 

9 i interrupt vectors (types 0-4). 

10 i 

11 i Note that the floating DS (in DSADDR ) is set up at this time also. 

13 i ROMDAT is 'temporarily' located at 40:0 by the linker* used as 

13 i ROMDAT by the ROM* and as far as the assembler is concerned* is 

14 i in fact the segment ROMDAT. The disk boot may find that this area 

15 i is needed by whatever DOS is being loaded* and therefore must be 

16 i moved. This move is described in the module 'SYBORO'. 

17 i 

18 I ****************************************************************************** 

19 NAME RAMINI - ROMDAT data area initialization 

20 • SUBTTL 

22 DEBUO EQU OFFFFH 

23 

24 i ****************************************************************************** 

25 i PUBLIC DEFINITIONS 

26 i ****************************************************************************** 

27 i 

28 PUBLIC RAMINI 

29 I 

30 i ****************************************************************************** 

31 l EXTERNAL REFERENCES 

32 i ****************************************************************************** 

33 i 

34 i 


35 

SECT 

ABSO 



36 

EXTRN 

BOOTMV: BYTE 

i Load address of disk boot sector 

(SYSORO) 

37 



i (Used as base of init stack) 


30 

SECT 

ROMCOD 



39 

EXTRN 

VECTBO: WORD 

i 0000 vector table 

(VECINI) 

40 

EXTRN 

VTOLEN: ABS 

j Size of 0080 vector table in words 

(VECINI) 

41 

EXTRN 

BEEPOF : NEAR 

i System beeper turnoff subroutine 

( BELDBR ) 

42 

EXTRN 

SOFINT: NEAR 

i* Used in place of the above 

(DSKIO ) 

43 

EXTRN 

INTTST : NEAR 

i Next routine in pouierup sequence 

( INTTST) 

44 

EXTRN 

LED 100: ABS 

i Interrupt/timer failure LED pattern 

(ROMERR) 

45 

EXTRN . 

MOTOFF: NEAR 

** Floppy disk motor turnoff routine 

(FLPXXX ) 

46 

47 i 
4B 

EXTRN 

TIMOUT: NEAR 

i* Disk controller timeout subroutine 

(DSKIO ) 

SECT 

ROMDAT 



49 

EXTRN 

BELEVT: WORD 

i System bell timing event block 

(ROMDAT) 

50 

EXTRN 

DSKCJ1: BYTE 

i Disk control latch memory 

(ROMDAT) 

51 

EXTRN 

DSKS_M: BYTE 

i Disk select latch memory 

(ROMDAT) 

52 

EXTRN 

DSKEVT: WORD 

i* Disk driver timeout event 

(ROMDAT) 

53 

EXTRN 

FL1EVT: WORD 

i* Floppy disk motor-off event 

(ROMDAT) 


t 
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0000 ' 


0000 ' 


0001 ' 


0003 ' 
0003' 
0006 ' 
0007' 
0009' 


34 

EXTRN 

FL2EVT: WORD i 

* Floppy disk general 

timing event 

(ROMDAT) 

33 

EXTRN 

PRCOJM: BYTE i 

Printer control latch 

memory 

(ROMDAT) 

36 

EXTRN 

8YSC0N: WORD i 

System Configuration 

word 

(ROMDAT) 

37 

EXTRN 

TIKCTR: BYTE 1 

System timer tick counter (load lac) 

(ROMDAT) 

38 i 






39 i »< 





********* 

60 I 


LOCAL CONSTANTS 



61 i 

INCLUDE 

PEG: PORTADDR. EGU 




62 i 

INCLUDE 

PEG: VECTOR. EGU 




63 i 

INCLUDE 

PEG: LATCHES. EGU 




64 i ****************************************************************************** 

63 i 







-0000 


220 

221 

222 

223 

224 
223 
226 

227 

228 

229 

230 

231 

232 

233 

234 
233 

236 

237 

238 

239 


***************** ************ ******** ***************************************** 

CODE SEGMENT DEFINITION 


SECT ROMCOD 
ASSUME CS: ROMCOD 

e***************************************************************************** 

LOCAL DATA AREA 


This table is used to initialise the timing event blocks in ROMDAT bg 
being loaded at offset TIKCTR. 

***************************************************************** 

***** THIS TABLE MUST MATCH THE CORRESPONDING DEFINITION ***** 

***** STRUCTURE IN THE MODULE 'ROMDAT' < STARTING AT TIKCTR > ***** 
***************************************************************** 



240 

EVTINI 

LABEL 

BYTE 




241 

I 






242 

1 System timer data area 




243 

i 






244 

I TIKCTR 

LABEL 

BYTE 

i 

System timer (23 msec) tick counter 

00 

243 


DB 

00 




246 

I 






247 

i Timing services permanent 

queue entries 


248 

i 






249 

j ROMEVT 

LABEL 

WORD 

f 

Start of timing events linked-list 

OOOD" 

230 


DW 

OFFSET DSKEVT 

i 



231 

i 






232 

i DSKEVT 

LABEL 

DWORD 

i * 

Disk driver timeout event 

OOOE" 

233 


DW 

offset FL1EVT 

i * 

Linked list pointer 

FF 

234 


DB 

OFFH 

i * 

Task ID («OFFH for permanent events) 

OO ' 

233 


DB 

OO 

i * 

Flags 

0000 

236 


DW 

0000 

» * 

Counter 

0009" 

257 


DW 

offset TIMOUT 

i * 

Subroutine address (disk TIMeOUT) 


238 

I 






259 

iFLIEVT 

LABEL 

DWORD 

i * 

Floppy disk motor-off event 
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OOOB ' 

OOOF- 

260 



DU 

offset FL2EVT 

1 # 

Linked list pointer 

OOOD ' 

FF 

261 



DB 

OFFH 

f * 

Task ID (-OFFH for permanent events) 

OOOE ' 

OO 

262 



DB 

00 

» * 

Flags 

OOOF ' 

0000 

263 



DU 

0000 

i * 

Counter 

0011 ' 

0008- 

264 



DU 

offset MOTOFF 

i * 

Subroutine address (disk MOTor-OFF) 



269 

< 








266 

i FL2EVT 

LABEL 

DUORD 

1 * 

Floppg disk timing event 

0013 ' 

000 A M 

267 



DU 

offset BELEVT 

l * 

Linked list pointer (last entrg) 

0019 ' 

FF 

268 



DB 

OFFH 

1 * 

Task ID (-OFFH for permanent events) 

0016 ' 

OO 

269 



DB 

00 

1 * 

Flags 

0017 ' 

OOOO 

270 



DU 

OOOO 

i * 

Counter 

0019 ' 

0009 M 

271 



DU 

offset 80FINT 

i * 

Subroutine address (FLoppg TIME event) 



272 

• 




1 * 

Note that we have actually reference B0F1NT 



273 

a 

m 

r 

m 

< 

H 

LABEL 

UORD 



001 B # 

0000 

274 



DU 

OOOO 

l * 

Linked list pointer 

001 D' 

FF 

279 



DB 

OFFH 

i Task ID C -OFFH for permanent events 1 

001E ' 

00 

276 



DB 

OO 

» Flags 

001F ' 

0000 

277 



DU 

OOOO 

j Counter 

0021 ' 

0004 H 

278 



DU 

OFFSET BEEPOF 

i 

Subroutine address (system BEEPer OFf) 

0023 ' 


279 

EVTEND 

LABEL 

BYTE 




-0023 

280 

EVTLEN 

EQU 

EVTEND-EVT INI 

« Length of initialization table 



281 









282 

1 *< 




see 




283 

1 



MODULE 

ENTRY POINT 



284 

1 




»«» 




289 

1 








286 



ASSUME 

D8: ROMDATt ES: ABSO 




287 

1 






0023 ' 


288 

RAMINI 

PROG 

NEAR 





2B9 

f 


CLD 



i forward strings 



290 

I 


CLI 



i make sure interrupts are disabled 



291 

l 








292 

I 

Sat 

up initialization stack 





293 

i 






0023 ' 

31 CO 

294 



XOR 

AX* AX 



0029 ' 

BE DO 

299 



MOV 

S3. AX 


ill Stack segment is ABSO 

0027 ' 

BC 0001- 

296 



MOM 

BP. OFFSET BOOTMV 

ill Stack is right below boot loc 

002A' 

OE 

297 



PUSH 

CS 


1 1 i 

002B ' 

IF 

298 



POP 

DS 


ill DS - C8 



299 

i 








300 

i 

Initiaiiza 

the 8088 vectors 





301 

« 





DS - C9 - ROMCOD 



302 

i 


MOV 

AX. ABSO 


in (VECTBO is in ROMCOD) 

0020 ' 

BE CO 

303 



MOV 

ES. AX 


ill ES points to ABSO 

002E * 

BE 0002- 

304 



MOV 

SI. OFFSET VECTBO 

ill DS:8I have source for move 

0031 ' 

BF 0000 

309 



MOV 

DI. OFFSET ZDVINT*4 

ill ES: DI have destination for move 

0034' 

B9 0003* 

306 



MOV 

CX. VTOLEN 


ill CX has size to move 

0037' 

F2 % 

307 



REP 



i i i 

0038' 

A9 

308 



MOVB 

UORD PTR CDI3# UORD 

PTR CSI1 in Do it 



309 

I 








310 

i 

Now 

initiaiiza Timing Event 

Block* In ROMDAT 



311 

I 
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0039 ' 

B 8 

0000 ' 

3ia 


MOV 

AX, ROMDAT 

1 l l 

Not* that DS - CS - ROMCOD 

003C ' 

BE 

CO 

313 


MOV 

ES, AX 

l 1 1 

ES point* to Initial ROMDAT loc. 

003E' 

BE 

0000 ” 

314 


MOV 

SI i OFFSET EVTINI 

l l l 

DS: SI have source for move 

0041 ' 

BF 

ooia- 

319 


MOV 

D I. OFFSET TIKCTR 

1 1 1 

ES: DI have destination for move 

0044 ' 

B9 

0023 

316 


MOV 

CX. OFFSET EVTLEN 

1 1 1 

CX has size to move 

0047 ' 

F3 


317 


REP 


1 1 l 


0048' 

A4 


31B 


MOVB 

BYTE PTR CDI1# BYTE PTR 

CSI 3 ill Do the move 

0049' 

2EA3 C 180 

319 


MOV 

WORD PTR CS: DSADDR+CSWRAP# AX ill Bet floating DS < ROMDAT ) 

004D ' 

8 E 

DB 

320 


MOV 

DS# AX 

i i i 

Bet new DS (ROMDAT) 




321 

l 








322 

1 

Initialize 

the ports to match their 

RAM 

counterparts 




323 

l 





004F ' 

BO 

AO 

324 


MOV 

AL. (SIDE_0+ACCFDC) 

I i i 

Set up initial value 

0091 ' 

A3 

000B" 

329 


MOV 

DSKCJ1# AL 

i i I 

Set the RAM version 

0094' 

E 6 

00 

326 


OUT 

DSKC_P, AL 

i i 1 

Set the latch 

0096 ' 

BO 

00 ” 

327 


MOV 

AL# C LED1 00+P AR IEN+PR AUTO+PRBTRB+PR INI T ) in Initial value 

0098 ' 

A3 

OOIO" 

328 % 


MOV 

PRCO_M. AL 

i i i 


009B ' 

E 6 

03 

329 


OUT 

PRCO_P, AL 

i i i 

(LEDs still OKI 

009D' 

BO 

FF 

330 


MOV 

AL# OFFH 

i i i 

Initial value 




331 

l 

MOV 

DSK 8 _M. AL 

i i i 


009F ' 

E 6 

04 

332 


OUT 

DSKB_P. AL 

i i i 


0061 ' 

31 

CO 

333 


XOR 

AX# AX 

i i i 


0063 ' 

A3 

0011 " 

334 


MOV 

BY 8 CON 1 AX 

I i i 

Clear the configuration word 




339 

l 








336 

i 

Qo to next 







337 

i 








33B 

l 

MOV 

AX# ABSO 

l i i 

INTTST assumes that 

0066 ' 

BE 

CO 

339 


MOV 

ES# AX 

i i i 

ES points to ABSO 

0068 ' 

E9 

0006" 

340 


JMP 

INTTST 

i i i 

(Interrupts still disabled) 




341 

1 








342 


END 





No errors detected 
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1 

2 

3 

4 
3 
6 
7 
9 

10 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 


»»«»*»»»»«**«******«»*»»**»*«*«****«»****«»*»***«»»*»»»*»»*»***»»*»»*«»»«»**** 
TITLE - RESET - Power up reset code 
COMPUTER - 8088 Assembly Language (BSO Assembler) 

ABSTRACT - The module contains the code that goes in the RESET segment 
e«**»**»»*******»tt#**«#tt****««ft******ft*«*»**********»«***»**«**ft****«*e«***««* 
NAME RESET - Powerup reset code 
BUBTTL 

•**»****«**#«*»*#*****»*»*»*«***«**»»*««**»****»•*#»**»**«•«**»»*«»**»»««*»•«* 

PUBLIC DEFINITIONS 


PUBLIC PUR UP 


EXTERNAL REFERENCES 

•»*«»»»***»«««*»»«»*»»»#*»**»*»*«***«**«**»»«»»«»*»*•«»»«*»»»*«»**»***»*»*»»** 


EXTRN PUPTBT: FAR 


« Start of power up test code 


C PUPTBT) 


MODULE ENTRY POINT 

»»»#»****»«»**«*«*•***«*»*#*«*«***«*»*«*«»»****«*»»*«*«*»*»*»***»*«»****•***»* 





23 

i RESET is 

located at < 




26 

i processor 

starts afti 




27 

i 




-0000 


28 


SECT 

RESET 




29 


ASSUME CS: RESET 




30 

i 




-0000 


31 


ORQ 

OOOOH 




32 

i 



0000 ' 



33 

PWRUP 

PROC 

FAR 

0000 ' 

FA 


34 


CL I 


0001 ' 

FC 


33 


CLD 


0002 ' 

EA 0001 M 

0000 M 

36 


JMP 

PUPTBT 




37 

1 



0007 9 

90 69 67 

61 73 73 

38 


DB 

'Pegasus 

OOOD 9 

73 







-OOOE 


39 


ORQ 

OOOEH 

OOOE' 

9CEA 


40 


DU 

9CEAH 




41 







42 







43 


END 



This is where the 
fcher seg-regs « O) 


i Disable interrupts (for keyboard restart) 
i Start out with forward strings 
i Intersegment jump to powerup test code 


i CRC of the system ROM (this is determined 
i empirically with the procedure described 
i in the file README. DOC ) 


No errors detected 
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#******#****»*****#**#JMHMMMH********#tt***#**»*#***********#*#*#*#***»#***|HHHHJ 

TITLE - ROMDAT - Pegasus system ROM data areas 

COMPUTER - 8008 Assembly Language (BSO Assembler) 

ABSTRACT - Thl9 module contains the RAM data areas for the various 

ROM^based system routines. Note that the actual location of these 
variables in memory is variable! depending on the current value 
for the ROM DS pointer# 'DSADDR '. This module it just a skeleton 
used to define the offsets of the variables. The ini tial i xation 


10 

l 

is handled by the various routines 

that 

actually use the RAM. 

11 

» 

One exception to this 

is the 

routine 'RAMINI ' which sets up some 

12 

l 

of the 

constant data 

(TIKCTR 

and Timing 

Event blocks). 

13 

i *eeeeeeee*eeeeeee*e*********#aaee*e#**e*ese**eeeeeeeeeeeeseeeeeeeeeeeeesaeeeee 

14 


NAME 

ROMDAT - TIPC 

system 

ROM data areas - 

15 

» 

BUBTTL 






17 

DEBUG 

EQU 

OFFFFH 





18 

i aaeee^ 




teases* 

ia»»a 


19 

i 


PUBLIC DEFINITIONS 



20 

I e#eeeeeeeeeseeeee*seeeeeee***eeee***s**esee*eeeeeee#**********eee*eaeee***eese 

21 

I 







22 


PUBLIC 

ATTSAV 





23 


PUBLIC 

BELEVT 





24 


PUBLIC 

CRTCNT 





25 


PUBLIC 

CRTERR 





26 


PUBLIC 

CRTHLD 





27 


PUBLIC 

CURPOS 





28 


PUBLIC 

CURTYP 





29 


PUBLIC 

D_DBGN 


i * 

Beginning of disk driver data area 

30 


PUBLIC 

.D_DEND 


i * 

End < 

of disk driver data area 

31 


PUBLIC 

D DIT 


i * 

Disk 

table of Disk Interface Tables 

32 


PUBLIC 

D_EKNT 


i * 

Disk 

error counter 

33 


PUBLIC 

D_NCMD 


i * 

Disk 

next operation to perform 

34 


PUBLIC 

D_NSTA 


i * 

Disk 

next state for driver 

35 


PUBLIC 

D_POS 


i * 

Disk 

table of current positions 

36 


PUBLIC 

D REQ 


i * 

Disk 

Request Information Block 

37 


PUBLIC 

D SOFT 


i * 

Disk 

software interrupt flag 

38 


PUBLIC 

D_BTAT 


1 * 

Disk 

driver current state 

39 


PUBLIC 

D_WAIT 


» * 

Disk 

waiting for I/O completion flag 

40 


PUBLIC 

D_WKSP 


i * 

Disk 

driver workspace 

41 


PUBLIC 

DATE 





42 


PUBLIC 

DI5BE0 





43 


PUBLIC 

D I SEND 





44 


PUBLIC 

DKSPSV 





45 


PUBLIC 

DKS3SV 





46 


PUBLIC 

DBKC_M 





47 


PUBLIC 

DSKEVT 


i * 

Di.k 

driver timeout event 

48 


PUBLIC 

DSKI3P 





49 


PUBLIC 

DSKS__M 





50 


PUBLIC 

ENDQ 





51 


PUBLIC 

FL1EVT 


i a 

Floppy disk motor— off event 

52 


PUBLIC 

FL2EVT 


i a 

Floppy general timing event 

53 


PUBLIC 

HOURS 
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-0008 

-0010 


54 

PUBLIC 

HUNS 

55 

PUBLIC 

IXSPSV 

56 

PUBLIC 

IXSSSV 

57 

PUBLIC 

KBMODE 

58 

PUBLIC 

KBSSSV 

59 

PUBLIC 

KBSPSV 

60 

PUBLIC 

KEY ISP 

61 

PUBLIC 

MINS 

62 

PUBLIC 

NUMCNT 

63 

PUBLIC 

NUMDRV i* Number of dish drive unite 

64 

PUBLIC 

NUMVAL 

65 

PUBLIC 

PRCO_M 

66 

PUBLIC 

GDEPTH 

67 

PUBLIC 

CFRONT 

68 

PUBLIC 

GREAR 

69 

PUBLIC 

QUEUE 

70 

PUBLIC 

RETFLG 

71 

PUBLIC 

RMDTBO 

72 

PUBLIC 

RMDTSZ 

73 

PUBLIC 

ROMEVT 

74 

PUBLIC 

SECS 

75 

PUBLIC 

BTATLN 

76 

PUBLIC 

BYSCON 

*77 

PUBLIC 

THSLIN 

78 

PUBLIC 

TIKCTR 

79 

PUBLIC 

TIMISP 

80 

PUBLIC 

TMSPBV 

81 

PUBLIC 

TMSBSV 

82 i 



83 i 


EXTERNAL REFERENCES 

84 i 



85 i 

EXTRN 

BEEPOF:NEAR i System beeper turnoff eubroutine 

86 1 

EXTRN 

FLTIME: NEAR j* Floppy disk timing event routine 

87 1 

EXTRN 

LED100: ABS i Interrup t/ timer failure LED pattern 

88 1 

EXTRN 

MOTOFFrNEAR i* Floppy disk motor turnoff routine 

89 i 

EXTRN 

SSSTD: NEAR i* Single-side* single track dens DIT 

90 i 

EXTRN 

T I MOUT : NEAR i* Disk controller timeout subroutine 

91 i 



92 i 



93 » 


DISK DRIVER STATE DEFINITIONS 

94 i 


INCLUDE PEO: DSKSTA. EGU 

106 i 



107 i 


REQUEST INFORMATION BLOCK STRUCTURE DEFINITION 

108 i 


INCLUDE PEO: DSKRIB 

109 



125 i 



126 i 


LOCAL CONSTANTS 

127 i 



128 i 



129 NUMDRV EQU 

8 i* Max number of disk drives 

130 QSIZE EGU 

16 i Keyboard type-ahead buffer size 

131 i 




< OUTPUT) 
CFLPXXX ) 
CROMERR) 
(FLPXXX ) 
(FLPDIT) 
i DSKUTL ) 
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132 




«««**««***«***««»»#»««#«**«**«**•««»«*«*»*«»«*««»»«««»«« 



133 

1 



BEG INN I NQ OF DATA AREA 



134 







139 

1 






136 

i N 

0 T E — 

->>> The 

memory locations from DBKC_M through D18BE0 must 



137 

i 

remain 

in their 

relative locations in later versions of the ROM. 



138 

i 





-0000 

139 


SECT 

ROMDAT 




140 

i 




OOOO ' 


141 

RMDTBO 

LABEL 

BYTE 




142 

i 






143 

i Harduan 'memory ' - 

NOTE: These three bytes must be the first in ROMDAT 



144 

i 




0000 ' 

-0001 

149 

DSKC M 

BS 

1 

I BYTE - 'DSKC P' latch 

0001 ' 

-0001 

146 

PRCQ_M 

08 

1 

i BYTE - 'PRCO J* ' latch 

0002 ' 

-0001 

147 

DSKBJ1 

08 

1 

l BYTE - 'DBKS P' latch 



148 

« 






lay 

I — — — 






190 

i System configuration word - See 'PEO: BY8C0N. EGU' for bit definitions 



191 

i 




0003 ' 

-0002 

192 

8Y8C0N 

DS 

2 

i WORD - System config - initialized during powerup 



193 

i 






1 04 

1 






199 

i Timing services permanent queue entries - This area is initialised from 



196 

i 

a table 

in the 

module 'RAMINI Any changes made here should also 



197 

f 

be made 

in RAMIN1. 



198 

i 






199 

i 

««*»*#*»*#«»*»#»*»»»**«*«*« *«**»*»»»*«*»*•*»*•*»»«*»«»»»«# 



160 

i 

«»*» 

The following data items (up through DI8BE0) ««** 



161 

f 

«**» 

must remain as contiguous memory locations. «««» 



162 

I 


#*#***#* 




163 

I 




0009 ' 

-0001 

164 

TIKCTR 

08 

1 

i BYTE - System timer (29 msec! tick counter 



169 

« 




0006 ' 


166 

ROhEVT 

LABEL 

WORD 

i Start of timing events linked-list 


-0002 

167 


08 

2 

i WORD - Pointer to first event block 



168 

f 




0008' 


169 

D8KEVT 

LABEL 

WORD 

j* Disk driver timeout event 


-0002 

170 


08 

2 

i» WORD - Linked list painter 


-OOOl 

171 


08 

1 

i# BYTE - Task ID (-OFFH for permanent events) 


-0001 

172 


08 

1 

1 e BYTE - Flags 


-0002 

173 


08 

2 

i* WORD - Counter 


-0002 

174 


08 

2 

i# WORD - Subroutine address (disk TIMeOUT) 



179 

I 




0010' 


176 

FL1EVT 

LABEL 

WORD 

i* Floppy disk motor-off event 


-0002 

177 


DS 

2 

js WORD - Linked list painter 


-0001 

178 


08 

1 

i* BYTE - Task ID (-OFFH for permanent events) 


-0001 

179 


08 

1 

l * BYTE - Flags 


-0002 % 

180 


08 

2 

i* WORD - Counter 


-0002 

181 


08 

2 

i# WORD - Subroutine address (floppy MOTor OFF) 



182 

« 




0018' 


183 

FL2EVT 

LABEL 

WORD 

is Floppy disk general timing event 
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•0002 

184 


D8 

2 

i * WORD - 

- Linked list pointer (last entry! 


*0001 

183 


DS 

1 

1 * BYTE - 

- Task ID (-OFFH for permanent events) 


-0001 

186 


DS 

1 

1 * BYTE - 

- Flags 


*0002 

187 


D9 

2 

1 • WORD - 

- Counter 


*0002 

188 


DS 

2 

l * WORD - 

- Subroutine address (FLoppy TIMEing) 



189 

l 





0020 ' 


190 

BELEVT 

LABEL 

WORD 




-0002 

191 


D8 

2 

l WORD - 

Linked list pointer 


*0001 

192 


DS 

1 

1 BYTE - 

Task ID (-OFFH for permanent events) 


*0001 

193 


DS 

1 

l BYTE - 

Flags 


-0002 

194 


DS 

2 

» WORD - 

Counter 


-0002 

193 


DS 

2 

1 WORD - 

Subroutine address (system BEEPer OFf) 



196 

i 







f 07 








19B 

i CRT 

DSR data area 





199 

i 





0028 ' 

-0002 

200 

DISBEO 

DS 

2 

l WORD - 

Begin address of display. 

0Q2A' 

-0002 

201 

D18EN0 

DS 

2 

* WORD - 

End address of display. 

002C ' 

-oooa 

202 

CURPOB 

DS 

2 

1 WORD - 

Address of current cursor position. 

002E ' 

-0002 

203 

THSLIN 

DS 

2 

1 WORD - 

Address of current line of cursor. 

0030 ' 

-0002 

204 

CRTCNT 

DS 

2 

1 WORD - 

Number of chars in current line. 

0032' 

-0002 

203 

CURTYP 

DS 

2 

1 WORD - 

Cursor type (block & 1/4 sec. blink t pmrup). 

0034 ' 

-0002 

206 

STATLN 

DS 

2 

l WORD - 

TTY status line begin - no stat line i pwrup. 

0036 ' 

-0001 

207 

RETFLO 

DS 

1 

l BYTE - 

Cond. ret. flag for internal use only !!! 

0037 ' 

-0001 

208 

CRTERR 

DS 

1 

1 BYTE - 

Current CRT errors (used by CRTTBT). 

0038' 

-0001 

209 

CRTHLD 

DS 

1 

l BYTE - 

Status byte for pausing CRT I/O operations. 

0039 ' 

-0001 

210 

ATT8AV 

DS 

1 

1 BYTE - 

Attribute latch save. 



211 

l 







KlC 

1 - 1- - m - m 







213 

l Keyboard D8R data area 




214 

i 





003A ' 

-0002 

213 

QFRONT 

DS 

2 

1 WORD - 

Pointer to current 'front ' of keyboard queue 

003C ' 

-0002 

216 

GREAR 

DS 

2 

l WORD - 

Pointer to current 'rear' of keyboard queue 

003E ' 

-0001 

217 

GDEPTH 

DS 

1 

l BYTE - 

Current number of chars waiting in queue 

003F ' 

-0001 

218 

KBtiODE 

DS 

1 

1 BYTE - 

Keymode mode/status byte 

0040 ' 

-0001 

219 

NUMVAL 

DS 

1 

1 BYTE - 

ALT/NUM accumulator 

0041 ' 

-0001 

220 

NUHCNT 

DS 

1 

1 BYTE - 

ALT/NUM keystroke counter 



221 

1 





0042 ' 


222 

QUEUE 

LABEL 

WORD 

i The keyboard queue itself 


-0020 

223 


DS 

GSI ZE*2 

) (»2 because queue entries are words) 

0062 ' 


224 

ENDQ 

LABEL 

WORD 





223 

l 







SCO 








227 

i Floppy disk 

DSR data 

area 




228 

i 





0062 ' 

-0020 

229 

D DIT 

DS 

4*NUMDRV i 

* DWORD*NUMDRV - Table of disk unit DIT's 

0082 ' 

-0001 

230 

D_EKNT 

DS 

1 


* BYTE - Error counter 

0083 ' 

-0001 

231 

D NCMD 

DS 

1 


* BYTE - Next disk operation to perform 

0084 ' 

-0001 ' 

232 

D N&TA 

DS 

1 


* BYTE - Next state for driver 

0083 ' 

-0008 ^ 

233 

D P09 

DS 

NUMDRV 


* BYTE - Table of current disk positions 

0080 ' 

-0011 

234 

D REG 

DS 

RIBL 


* BYTEsRIBL - Request Information Block 

009E ' 

-0001 

233 

D SOFT 

DS 

1 


* BYTE - Non-iero indicates software interrupt 



ROMDAT - TIPC system ROM data area* 
ROHDAT. SRC 


CRB0B6/11 version 10.34.17 


3-Aug-83 16: 46: 4B 


Pag# 1-4 


009F ' 
OOAO ' 
OOAi ' 

*0001 

*0001 

-0004 

-0062 

-00A9 

236 

237 

238 

239 

240 

241 

242 

243 
rtAJk. 

D_BTAT 

0 JWA I T 
DJWKSP 

1 

D DBON 
D_DEND 

i 

DB 

DB 

D8 

EQU 

EQU 

1 

1 

4 

DJ)IT 

D_WKSP+4 


i« was used to enter DBK1BR 

is BYTE - Current state of driver 
i* BYTE - Halting for disk I/O completion flag 
i* BYTE*4 - Disk driver workspace 

i* Beginning of disk driver data area 
is End of disk driver data area 




l ■" u ■- u 






-0001 

249 


D8 

1 


i This forces ROMDAT site to be multiple of 16 



246 

1 




i and stacks to be on an even word boundary 



/ 








248 

i Interrupt handler stack save areae: 



249 

i 





00A6 ' 

-oooa 

290 

KBBS8V 

DB 

2 


i Keyboard interrupt stack segment save 

OOAB' 

*0002 

291 

KBSPBV 

DB 

2 


» Keyboard interrupt stack pointer save 



292 

1 





OOAA ' 

*0002 

293 

DK8BBV 

DB 

2 


i Disk interrupt stack segment save 

OOAC ' 

-0002 

294 

DKSPSV 

DB 

2 


i Disk interrupt stack pointer save 



299 

f 





OOAE ' 

-0002 

296 

THSSBV 

DB 

2 


f Timer interrupt stack segment save 

OOBO ' 

-0002 

297 

TMBPBV 

DB 

2 


i Timer interrupt stack pointer save 



298 

1 





00B2' 

-0002 

299 

IXBBBV 

DB 

2 


i Common interrupt exit stack segment save 

00B4 ' 

-0002 

260 

IXBPBV 

DB 

2 


I Common interrupt exit stack pointer save 



261 

« 






-0030 

262 


DB 

48 


i Keyboard interrupt service routine's stack 

00E6 ' 


263 

KEYISP 

LABEL 

WORD 





264 

i 






-0030 

269 


DS 

48 


i» Disk interrupt service routine's stack 

01 16 ' 


266 

DBKIBP 

LABEL 

WORD 





267 

I 






-0024 

268 


DB 

36 


i System time interrupt routine's stack 

013A ' 


269 

TIMIBP 

LABEL 

WORD 





270 

37 « 

f 







«r 1 

l 







272 

i Tlme-of-day 

clock DBR 

data 

area 



273 

i 







274 

i *#* 

HUNB thru DATE must be 

contiguous *«* 



279 

f 





0I3A ' 

-0001 

276 

HUNS 

DS 

1 


» Hundredths of seconds ftenth sec resolution) 

013B ' 

-0001 

277 

BECB 

DS 

1 


i Seconds 

013C' 

-0001 

278 

MINS 

DS 

1 


i Minutes 

0130 ' 

-0001 

279 

HOURS 

DB 

1 


i Hours 

013E ' 

-0002 

280 

DATE 

DS 

2 


i Days since 1-1-BO 



281 

1 





0140 ' 


282 

RMDTEN 

LABEL 

BYTE 


i Last location of ROMDAT 


-0140 

283 

RMDTBZ 

EQU 

RMDTEN-RMDTBQ 

i The slxe of ROMDAT 


% 

284 

I 






-0000 

289 

IF 

C RMDTBZ 

MOD 10H) 

NE 0000 



286 


BARFO 

j 

Bloui 

up if ROMDAT sixe is not a multiple of 10H 



287 

END IF 
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288 i 

289 END 


No errors detected 
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i TITLE - ROMERR (ROM SYSTEM ERROR CODES) 

i ABSTRACT - This module contains the definitions of ROM based system 
i error codes. 

I **#*#»**#********#******##*4H» *#»«***»«»**«»«»»•«**»*»»«»*»»«•»»»*«»«#»»•»»•«»« 


6 


NAME 

ROMERR (ROM 

BASED SYSTEM ERROR CODES) 

7 

9 

10 

11 

12 

1 »«* 
f 

l *** 

SUBTTL 

PUBLIC DEFINITIONS 

PUBLIC 

DBCERR 

i Boot - Bad CRC on boot sector 

13 


PUBLIC 

DCRERR 

i Boot - CRC error 

14 


PUBLIC 

DFMERR 

i Boot - Disk format error 

IS 


PUBLIC 

DNIERR 

i Boot - No drives installed 

16 


PUBLIC 

DNRERR 

i Boot - Disk not ready 

17 


PUBLIC 

DNSERR 

i Boot - Not a TI system disk 

18 


PUBLIC 

DSKERR 

i Boot - Seek error 

19 


PUBLIC 

DSNERR 

i Boot - Bector-not-found error 

20 


PUBLIC 

DUNERR 

i Boot - Data error (should not occur) 

21 


PUBLIC 

DDMERR 

l Boot - DRQ error (hardware failure) 

22 


PUBLIC 

FATERR 

i Fatal software error 

23 


PUBLIC 

KNIERR 

i Keyboard not installed 

24 


PUBLIC 

KNRERR 

i Keyboard - no response 

2S 


PUBLIC 

KRAERR 

i Keyboard RAM failure 

26 


PUBLIC 

KRCERR 

j Keyboard acknowledge char receipt error 

27 


PUBLIC 

KROERR 

I Keyboard ROM failure 

28 


PUBLIC 

KUNERR 

i Keyboard - Unknown error 

29 


PUBLIC 

LED111 

i All LEDs on* complete system fail. 

30 


PUBLIC 

LED110 

i System ROM failure 

31 


PUBLIC 

LEDlOl 

i System RAM failure (P port CONTAINS BITS 

32 


PUBLIC 

LED 100 

i Interrupt or Timer failure 

33 


PUBLIC 

LEDOU 

i Floppy controller failure 

34 


PUBLIC 

LED010 

i CRT hardware failure 

3S 


PUBLIC 

LED001 

i Option failure (used by PUPNMI ) 

36 


PUBLIC 

LEDOOO 

i Basic system test passed 

37 


PUBLIC 

OPRERR 

i Optional RAM has an error during powerup 

38 


PUBLIC 

PURMPE 

i RAM parity error during powerup 

39 


PUBLIC 

PUXNME 

i Unexpected NMI during powerup 

40 


PUBLIC 

RMPERR 

i RAM parity error 

41 


PUBLIC 

ROMERX 

i Option ROM at 0F4000H is in error 

42 


PUBLIC 

XNMERR 

i Unexpected NMI 

43 


PUBLIC 

WLDERR 

i 'Wi 1 d ' interrupt 


»*»»#**«***«»*»*«**««*****»*»*»***»«»*»*****#**•****»*»***»*#*#*********»•»*** 

POWERUP AND DIE ERROR CODES - 'OOxx' 

'xx' in the range OOH — > 09H 

Note that LED bits are inverted* since LEDs are lou» * 'on' 

•«»*«»»«« sees****** ***«»» »*««*** ****** **************************************** 


«oooo 

51 

LED111 

EQU 

OOOOOOOOB 

i *'7 M 

All LEDs on# complete system fail 

-0001 

52 

LEDUO 

EQU 

0000000 IB 

i "6" 

System ROM failure 

*0002 

53 

LEDlOl 

EQU 

0000001 OB 

j "5" 

System RAM failure 
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-0003 

94 

LED100 

EQU 


0000001 IB 

i 

"4" Interrupt or timer* failed 

-0004 

99 

LEDOU 

EQU 


00000 100B 

i 

M 3" Floppy controller failed 

-0009 

96 

LED010 

EQU 


000001 01 B 

i 

“2“ CRT hardware failed 

-0006 

97 

LEDOOl 

EQU 


0000011 OB 

I 

“1” Keyboard failed (not used yet) 

-0007 

98 

LEDOOO 

EQU 


0000011 IB 

1 

"0" Basic system test passed 


99 

i 






-0008 

60 

PUXNME 

EQU 


8 

1 

Unexpected NMI during powerup sequence 

-0009 

61 

PURMPE 

EQU 


9 

1 

RAM parity error during pouierup sequence 


62 

i 







63 

« 







64 


****** 


t*»****»**j 

i******* 



69 

i 

KEYBOARD ERRORS - 

'00s x ' 



66 

i 

'iX ' 

in 

th* rang* 

10H — > 

19H 


67 



»**« 


******** 



68 

i 






-0010 

69 

KNIERR 

EQU 


10H 

f 

Keyboard not installed 

-0011 

70 

KNRERR 

EQU 


11H 

l 

Keyboard - installed but no response 

-0012 

71 

KRAERR 

EQU 


12H 

f 

Keyboard RAM failure 

-0013 

72 

KROERR 

EQU 


13H 

i 

Keyboard ROM failure 

-0014 

73 

KUNERR 

EQU 


14H 

1 

Keyboard Unknown fai lure (unexpec ted response) 

-0019 

74 

KRCERR 

EQU 


19H 

1 

Keyboard acknowledge char receipt error 


79 

f 







76 

1 







77 


****** 



f*****»* J 



78 

l 

OPTIONAL MEMORY ERRORS - 

'OOxx ' 


79 

f 

'** ' 

in 

th* rang* 

20H — > 

2FH 


80 

i ****** 

****** 

!*«« 

}»»«**«*»»! 



-0020 

81 

OPRERR 

EQU 


20H 

1 

Option RAM bank 1 has an error in puptst. 


82 

i 

EQU 


21H 

1 

Option RAM bank 2 has an error in puptst. 


B3 

i 

EQU 


22H 

I 

Option RAM bank 3 has an error in puptst. 


84 

f 

EQU 


23M 

1 

Option RAM bank 4 has an error in puptst. 


89 

i 

EQU 


24H 

1 

Option RAM bank 5 has an error in puptst. 


86 

i 

EQU 


29H 

1 

Option RAM bank 6 has an error in puptst. 


87 

I 

EQU 


26H 

1 

Option RAM bank 7 has an error In puptst. 

-0028 

88 

ROMERX 

EQU 


28H 

1 

Option ROM at 0F4000H is in error 


89 

l 

EQU 


29H 

1 

Option ROM at 0F6000H is in error 


90 

1 

EQU 


2AM 

1 

Option ROM at 0F8000H is in error 


91 

i 

EQU 


2BH 

1 

Option ROM at OFAOOOH Is In error 


92 

1 

EQU 


2CH 

i 

Option ROM at OFCOOOH is in error 


93 

1 

EQU 


2DH 


MAIN ROM at OFEOOOH is in error 


94 








99 

i ****************************************************************************** 


96 

i 

DISK 

BOOT ERRORS - 

- 'OOxx' 



97 

l 

'*X ' 

in 

the rang* 

30H — ) 

3FH 


98 


-0030 

99 

DNIERR 

EQU 


30H 

i 

No drives installed (must have at least one) 

-0031 

100 

DNRERR 

EQU 


31H 

i 

Disks not ready or not bootable 

-0032 

101 

DCRERR 

EQU 


32H 

i 

CRC error 

-0033 ' 

102 

DSKERR 

EQU 


33H 

i 

Seek error 

-0034 

103 

DSNERR 

EQU 


34H 

i 

Sec tor-no t-found error 

-0039 

104 

DUNERR 

EQU 


35H 

f 

'Disk' (unknown) error (controller failure) 

-0036 

105 

DNSERR 

EQU 


36H 

i 

Not a TI system disk 
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-0037 

106 

DFMERR 

EGU 

37H 

i 

Disk format error 


-0039 

107 

DBCERR 

EQU 

38H 

i 

Bad boot sector CRC or bad sector 

buffer I/F 

-0039 

108 

DDMERR 

EQU 

39H 

I 

DRQ error (controller failure) 



109 

1 







110 

1 







111 

| ««««*« 

SftSSIH 


«»« 




112 

1 

INTERRUPT ERROR CODES 

» 

lOxx ' 



113 

1 

'xx ' 

In the range 40H 

~ > 

4FH 



114 


»««»»! 


**# 



-0040 

113 

XNMERR 

EQU 

40H 

i 

Unexpected non-maskable interrupt 

(NMI ) 

-0041 

116 

RliPERR 

EQU 

41H 

i 

RAM parity error detected during 

operation. 

-0042 

117 

WLDERR 

EQU 

42H 

i 

Unexpected (Wild) interrupt 



118 

1 







119 

1 







120 




*** 




121 

l 

SOFTWARE PROBLEM ERROR 

CODES - * 10m x 9 


, 

122 

1 


in the range 30H 

— > 

3FH 



123 




*»« 



-0030 

124 

FATERR 

EQU 

30H 

i 

Fatal software bug encountered 



123 

l 







126 

i 







127 




*** 




128 

i 

RESERVED ERROR CODES 





129 




»»« 




130 

I 






-OOFF 

131 

UNUSED 

EQU 

OFFH 

i 

Do not use OFFH as an error code 



132 

l 







133 


8UBTTL 





134 


END 






No »rror» detected 
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-0000 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

59 

60 
61 
62 
63 

89 

90 

91 

92 

93 

94 
116 
117 
116 


***************************** *»***»*****#*******»*#«**«***«*»**•******#«*«»««« 
TITLE - ROMTIM (ROM TIMING SERVICES) 

COMPUTER - 8088 ASSEMBLY LANGUAGE 

ABSTRACT - The ROMTIM sujbr out i ne is, called bg the system timer interrupt 
processor every ^qpms (every % clock ticks). This routine scans 
the list of fixec timing events to determine If any events have 
expired. When an event does expire< the subroutine defined in 
the event structure is called. 

INPUT - D8 - ROM DATA SEGMENT 

OUTPUT - NONE 

REGISTERS USED - AX, DI. DS, FLAGS 
STACK USED - 6 BYTES 


NAME ROMTIM (ROM TIMING SERVICES SUBROUTINE) 

BUBTTL 

****************************************************************************** 

PUBLIC DEFINITIONS 

****************************************************************************** 
PUBLIC ROMTIM 


i ****************************************** j 

I EXTERNAL REFERENCES 

I ******************************************^ 


SECT ROMDAT 

EXTERN ROMEVT : WORD I POINTER TO 1ST EVENT IN LIST (ROMDAT) 


LOCAL CONSTANTS 


i INCLUDE PEG: TIMEVT.EQU 

i ****************************************************************************** 
I ****************************************************************************** 

l LOCAL MACROS 

I ****************************************************************************** 

INCLUDE PEG: BIT. MAC 
BIT MACRO 7.B I TNUM, '/.TARGET 

TEST BYTE PTR '/.TARGET, 1 SHL 7.BITNUM l TEST BIT, GET Z-FLAQ 
ENDM 


INCLUDE PEG: RES. MAC 


RES 


MACRO 

PUSHF 


7.BITNUM, '/.TARGET 


i 


SAVE FLAGS 
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119 

AND 

BYTE PTR XTARGET# NOT ( 1 BHL 7.BITNUH) i RESET THE BIT 

120 

POPF 

i RESTORE FLAGS 

121 

ENDM 


122 





CR0O06/11 version IO.34.i7 3-Aug-83 16:54:11 Page 2 


SUBTTL MAIN 


I MODULE ENTRY POINT 

I «***«**««*##««**«****»«#»«#*«*«»#**«********«**«*»«#«»*«****»**#*»»*«*«*«*•««» 


ROMTIM (ROM TIMING SERVICES SUBROUTINE) 
MAIN ROMTIM. SRC 

124 

125 

126 

127 

128 

-0000 129 

130 

131 

132 


0000' 



133 

0000' 

BF 

0001" 

134 

0003' 



135 

0003' 

SB 

3D 

136 

0005' 

09 

FF 

137 

0007' 

74 

1A 

138 




139 




140-#- 

OOOD ' 

74 

F4 

142 

OOOF ' 

FF 

4D 04 

143 




144 

0012' 

75 

EF 

145 




146+ 

001 A ' 

IE 


150 

00 IB ' 

57 


151 

001C' 

FF 

55 06 

152 

001F ' 

5F 


153 

0020' 

IF 


154 

0021 ' 

EB 

EO 

155 




156 

0023' 



157 

0023' 

C3 


158 


159 

160 
161 



SECT 

ROMCOD 


ASSUME 

CB: ROMCOD 


ASSUME 

DB: ROMDAT 

ROMTIM 

PROC 

NEAR 


MOV 

D I. OFFSET ROMEVT 

NXTEVT : 

MOV 

DI. CDI 3 


OR 

DI. DI 


JZ 

EXIT 


BIT 

EVTSTA. IEVFLGCDI 3 


JZ 

NXTEVT 


DEC 

WORD PTR IEVCTRCDI 1 


JNZ 

NXTEVT 


RES 

EVTSTA. IEVFLGCDI 3 


PUSH 

DS 


PUSH 

DI 


CALL 

WORD PTR IEVSUBCDI 3 


POP 

DI 


POP 

DS 


JMP 

NXTEVT 

EXIT: 

RET 



SUBTTL 

END 



l DB - ROM DATA SEGMENT 

l DB. DI - ADDR PTR TO 1ST EVENT 

I D8. DI - ADDR PTR TO NEXT EVENT 

DS. DI - ADDR OF POSSIBLE EVENT 
Q: END OF LI8T ENCOUNTERED ? 

i Y: DONE 

I N: DS. DI « ADDR OF EVENT 

I 0: IS THIS EVENT ACTIVE 7 

I N: GET NEXT EVENT 

i Y: DECREMENT EVENT'S COUNTER 

iQ: EVENT EXPIRED 7 

i N: GET NEXT EVENT 

i Y: NEW STATUS - INACTIVE 

I SAVE EVENT ADDRESS 

» CALL EVENT'S SUBROUTINE 

l DS. DI - EVENT ADDRESS 

l GET NEXT EVENT 

I SCAN COMPLETE 

i ** RETURN ** 


No errori detected 
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-0000 


-0000 


1 

2 

3 

4 
9 
6 
7 
9 

10 

11 

12 

13 

14 
19 
16 

17 

18 

19 

20 
21 
22 

23 

24 
29 
26 

27 

28 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 
149 

146 

147 

148 

149 

190 

191 

192 

193 

194 
199 

196 

197 

198 


»*»***»*»#***«»*»*»«»*»«»*#***« *«*»»«*»***#*#«#*»*»«#«««#«»««##««»««•«*«««»«#« 
TITLE - ROMUTL - System ROM utility routines 
COMPUTER - 8088 Assembly Language 

ABSTRACT - This module contains several commonly used subroutines 
«*#«**•**«*«**«***«*»*«*#**«****««»«««#««*«*«***««*««*#»*«*#«*#««»««««««#««««• 
NAME ROMUTL - Bystem ROM utility routines 
BUBTTL 


PUBLIC DEFINITIONS 

****************************************************************************** 

PUBLIC DECLED 
PUBLIC DELAY 


EXTERNAL REFERENCES 


SECT ROMDAT 

EXTRN PRCO_M: BYTE i Parallel control port memory (ROMDAT) 

*#»*«««*«*«***«*»*«***««»*«****#«#*«**«*«***«»»««**»**«*«*«*«««*****«*#*««*««* 

LOCAL CONSTANTS 
INCLUDE PEO: PORTADDR. EGU 
INCLUDE PEO: VECTOR. EQU 


*#****##»***#**#* ****#**#*#*« ************************************************* 

CODE SEGMENT DEFINITION 


SECT ROMCOD 
ASSUME CS: ROMCOD 

«*•«•**«•*«*•««***«««******#«*#************«««»***«*«**««**»•«»*•«**#»•**•*»«* 

MODULE ENTRY POINT 


BETPRT - Initialize data ports according to table (in the current CB) 
The format of the table is: 

DB < por t >, < data > 

DB OFFH i Table delimiter 

Where port is an 8~bit port address. End of table denoted by a 
port value of OFFH. It is recommended this routine be executed 
iiiith interrupts disabled. This method saves 1 byte over 
conventional "MOV AL. XXi OUT XX,AL H ini tiai 1 zat ion if the 
number of ports to be initialized is 4 (9-byte table). There 
are corresponding savings for larger tables 

INPUT: CS: 81 - Address of table 
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OUTPUT: (none) ports are initialized 

USED: 

STACK: 2 


162 

I 

ASSUME 

CB: ROMCOD 



163 

f 





164 

ISETPRT PROC 

NEAR 



163 

i 

MOV 

DH# 00 


i Ports are below 100H 

166 

iSPl: 





167 

i 

LODS 

BYTE PTR 

CS: t SI 3 

i Get the port 

168 

i 

CMP 

AL, OFFH 


I Q: End of the list ? 

169 

i 

JZ 

SP2 


i Y: That's all# then 

170 

i 

MOV 

DL# AL 


i N: Set up DX to point 

171 

i 

LODS 

BYTE PTR 

CS: CSI3 

i Get the data 

172 

i 

OUT 

DX. AL 


i Spit it out 

173 

i 

LOOP 

SP1 


i Do 'em all 

174 

i SP2: 





173 

f 

RET 



i *** RETURN *** 


»*»»*«»*»**»«**«*«»*»«»»»*»»*#*«*»**»*»«»«»*«*»**•**»*»»**»**«•*•*»«***»**««»« 

DELAY - delay for (CX) milliseconds 

INPUT: CX ■* length of delay in milliseconds 

OUTPUT: (none) 

USED: CX 

STACK: 4 

ASSUME CB: ROMCOD 


0000' 



187 

DELAY 

PROC 

NEAR 


0000' 

30 


188 


PUSH 

AX 


0001 ' 



1B9 

DELI: 




0001 ' 

BO 

AO 

190 


MOV 

AL. OAOH 

i Empirically derived 

0003' 



191 

DEL2: 




0003' 

FE 

CB 

192 


DEC 

AL 

i 

0003 ' 

73 

FC 

193 


JNZ 

DEL2 

i if not 1 msec 

0007' 

E2 

F8 

194 


LOOP 

DELI 

i if not desired count 

0009' 

98 


193 


POP 

AX 


OOOA ' 

C3 


196 


RET 


j *** RETURN *** 


****************************************************************************** 

DECLED - This subroutine reads the state of the LED's from RAM# 
decrements it# writes it bach to RAM and outputs the 
new state to the LED port. 

INPUT - (none) 

OUTPUT - AL * New state of LED'S (i.e. PRC0J1-1) 

LED'S decremented and LED ram byte updated 

USED - AL 
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211 

1 









213 

I STACK - NONE 







213 

i 









214 




******* 

*«***i 

1*4 




213 

I 









216 


ASSUME 

CB: ROMCOD 







217 

I 







OOOB ' 


21B 

DECLEO 

PROC 

NEAR 





OOOB ' 

2EBE IE C1B0 

219 


MOV 

DS, WORD PTR CB: DSADDR+CBWRAf 

1 Bit ill DB *i ROMDAT 

0010' 

9C 

220 


PUSHF 



i 

Save callers flags (interrupt state) 

0011 ' 

FA 

221 


CL I 



i 

Interrupts off 

0013' 

AO 0001- 

222 


MOV 

AL. PRC0J1 


I 

Get copy of LED's from RAM 

0015' 

BA EO 

223 


MOV 

AH# AL 


i 

Save LED state in AH 

0017' 

24 07 

224 


AND 

AL. 07H 


i 

Mask off last three bits 

0019' 

3C 07 

223 


CMP 

AL# 07H 


f 

Q 

Are they all "lero" ? 

001B ' 

74 09 

226 


JE 

NODEC 


I 

Y 

Then return (no decrement) 

001D ' 

BA C4 

227 


MOV 

AL# AH 


i 

N 

Get copy of LED's back 



228 

l 

CALL 

BWPLED 


I 

Swap the LED's for the INC 

001F ' 

FE CO 

229 


INC 

AL 


I 


. and decrement LED's (inverted) 



230 

« 

CALL 

BWPLED 


« 

Gi 

SWAP bits 0 l< 2 

0031 ' 

E6 03 

231 


OUT 

PRCO_P. AL 


I 

Output new LED's 

0023' 

A3 0001- 

232 


MOV 

PRCO Ji, AL 


I 

Bave new LED state in RAM 



233 

l 







0036' 


234 

NODEC: 




I 



0026' 

9D 

233 


POPF 



l 

Restore callers flags 

0027' 

C3 

236 


RET 



i 

All done !!! 



237 

i 









238 


t**«*«««i 


******* 

**«**{ 

t*^ 




239 

i 

THIS ROUTINE 18 USED 

ro swap 

BITB 

0 

& 2 IN SOFTWARE 



240 

i 









241 

i 

INPUT - 

AL - STATE OF 

THE LED 'B 





242 

i 









243 

I 

OUTPUT - 

- AL - CORRECT 

STATE 

OF THE 

LED 'B 



244 

i 









243 

| *«ft*«*1 





»*^ 




246 

1 









247 

I BWPLED 

PROC 

NEAR 


l 





248 

1 

MOV 

BL# AL 


i 

SAVE LED 'B 



249 

l 

XOR 

CL# CL 


1 

CLEAR CL 



230 

1 

AND 

BL. 7H 


» 

MASK OUT LAST THREE BITB 



231 

l 

TEST 

BL. 2H 


f 

Q 

18 SECOND BIT BET 7 



232 

l 

JNZ 

KEEP 1 


i 

Y 

THEN KEEP IT A ONE. 



233 

i TEBTO: 

TEST 

BL. 1H 


1 

0 

IS FIRST BIT SET 7 



234 

i 

JNZ 

SWAPO 


1 

Y 

THEN SWAP BIT 0 WITH BIT 2 



235 

i TEBT2: 

TEBT 

BL. 4H 


i 

<3 

IB THIRD BIT BET 7 



256 

i 

JNZ 

SWAP 2 


l 

Y 

THEN BWAP BIT 2 WITH BIT 0 



257 

i UPBITB: 


AND AL. OFBH 



i CLEAR LAST THREE BITB 



238 

i 

OR 

AL# CL 


1 

OR IN NEW CORRECT LED'S 


% 

259 

i 

RET 



1 

ALL DONE 



260 

i 









261 

i KEEP 1 : 

OR 

CL, 0000001 OB 


l 

KEEP SECOND BIT(1> A ONE 



262 

I 

JMP 

TESTO 


1 

GO TEBT THE OTHER BITS 
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263 

264 

I 

i BWAPO: 

OR 

CL, 00000 100B 

269 

i 

JMP 

TEST2 

266 

267 

l 

i 8WAP2: 

OR 

CL, 0000000 IB 

268 

i 

JMP 

UPBITS 

269 

270 

i 

END 



No error* detected 
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i CHANGE THIRD BIT<2> TO A ONE 
I GO TEST BIT THREE 

l CHANGE FIRST BIT<0> TO A ONE 
I GO UPDATE THE NEW BITS 
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-0200 

-1820 

-2000 


-0000 


-COOO 


COOO' 

COOO' 

-0200 


1 

2 

3 

4 
3 
6 
7 
9 

10 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 

33 

34 
33 

36 

37 

38 

39 

40 

41 

42 

43 

44 
43 

46 

47 

48 

49 

30 

31 

32 

33 


TITLE - BYSORO - System organization module 
COMPUTER - 80BB Assembly Language (BSO Assembler) 

ABSTRACT — This module defines the 'layout' of the Pegasus system memory. 
#«*»«***«*«««*«*««»«**«**««««*»#«**«***««*«*»»»*«#«»«««#««*««*»*««*««««*»«»«*« 
NAME SYSORO - System organization module 
SUBTTL 


PUBLIC DEFINITIONS 


PUBLIC 

BOOTLO 

PUBLIC 

BOOTMV 

PUBLIC 

BOOTSZ 

PUBLIC 

EPROM 

PUBLIC 

R0MF4 

PUBLIC 

R0MF6 

PUBLIC 

ROMFB 

PUBLIC 

ROMFA 

PUBLIC 

ROMS I Z 

PUBLIC 

BY3R0M 


LOCAL CONSTANTS 


a***************************************************************************** 


BOOTSZ 

EQU 

200H 

I Max size of boot sector loaded 

at BOOTLO 

CRTMSZ 

EQU 

1B20H 

i Bize of memory 

that Alpha board 

talks to 

ROMSIZ 

EQU 

2000H 

i ROM boundaries 

are BK 


l 



SEGMENT DEFINITION 




i ****************************************************************************** 

i 

i ABSO is located at absolute memory address O. It is used during system 

> initialization and diagnostics to access system constants and interrupt 


i vectors in 

low RAM 

(see VECTOR. EQU). 

i 

SECT 

ABSO 



ASSUME 

CS: ABSO 

. DS: ABSO 

i 

ORG 

OCOOOH 

i BOOT SECTOR LOADED HERE 

j 

BOOTMV 

LABEL 

BYTE 

i This label used as ref to load boot sector 
J (also as base for ROM init stack) 

BOOTLO 

PROC 

FAR 

) DKBOOT jumps to here after boot is loaded 

I 

i — 

DS 

BOOTSZ 

i space 


ROMDAT is the dedicated RAM area allocated to the 8K Bystem ROM on the 
main board. The optional ROMs are each allocated a separate data area. 
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-0000 


0000 ' 


-0000 

-1820 


54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 


i There Is a set of words in the interrupt vector area of memory (ABSO)* 

i that contains the location and size of the blocks. Each ROM has its own 

f 2 words (see VECTOR. EQU). The location DSADDR contains a painter to 

i ROMDAT* and the location DS5IZR contains the size (in bytes) of ROMDAT. 

f The other locations (DSADDx and DSSIZx) contain corresponding pointers 
i and sizes for the option ROMs. 

i These values (except for DSADDR/DSSI ZR ) are initialized to zero during 
f System ROM powerup. Each optional ROM is responsible for allocating 
i its own data area when it is called from PUPTSi. This is accomplished by 

I looking at the DSSIZx locations prior to the current one* scanning 

i backwards until a non-zero DSSIZx is encountered. This value is adjusted 
i and added to the corresponding DSADDx to form the next contiguous segment 
i address and the current DSSIZx is filled in. The size must be a multiple 

I of 16* i.e. the low order 4 bits must be zero. This is for ease of 

i conversion to segment addresses for calculating total RAM data area size* 
f etc. Note that the ROM init ial i zation routines are called in the order 

i O* 2* 4* 6* 8 where the numbers correspond to the ROMs at offsets of 0000* 

f 2000* 4000 » 6000* and 8000 from the beginning of ROMCOD (the System ROM 
i is at offset AOOO ) • 

» The memory is allocated sequentially from DSADDR such that the data area 

« for the entire set of ROMs in ROMCOD (the aforementioned optional ROMs) 

f begins at DSADDR. The total size of the data area is determined by 

p adding all the DSSIZx values together* since each size has been rounded 

i up to the nearest segment. This implies that the values in the DSSIZx 

f locations for non-instal led ROMs must be zero. 

# Although ROMDAT is initially loaded here* the boot routine may change its 
« location to anywhere within the 1 Mbyte address range of the processor. 

I This is done by changing all the DSADDx locations to point to the new 

I locations (by add ing/sub trac t ing a constant) and then copying the data 

i from DSADDR to the new location. The length for the move is determined 
i as shown above* being the total size of allocated RAM area. Interrupts 
i should be disabled during this process. 

i NOTE: Remember that the DSADDx values are segment values* while the 

i DSSIZx values are in bytes. 

SECT ROMDAT 

ASSUME CS: ROMDAT 
I 

INRMDT LABEL BYTE f ROMDAT data initially loaded here. 


CRTDAT is the Alpha-board screen RAM. 

SECT CRTDAT 

ASSUME CS: CRTDAT 

DS CRTMSZ 
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ROMCOO is located at absolute memory address 0F4000H. Although the 
system ROM is located at OFCOOOH# this leaves space for option ROM to 
be in the same segment as the system ROM... useful* for example* If 
BASIC were to be put in ROM. Note that this is 48K from the end of RAM* 
allowing direct access to the first 16K of RAM by taking advantage of 
the fact that the hardware 'wraps' memory (the address following 
OFFFFFH is OOOOOH). This memory is accessed by adding the offset 
(from absolute zero) to the constant C6WRAP defined in VECTOR. EGU. 


-0000 


SECT ROMCOD 
ASSUME CB: ROMCOD 




121 

i The 

following labels 

correspond to the starting locations for the option 



123 

» ROMi 

i. They 

are used 

during system initialization to determine the ROM's 



123 

» presence. 

Note that 

the ROMs 

are assumed to be on BK boundaries. 



124 

i 





0000 ' 


129 

R0MF4 

LABEL 

BYTE 

i 

ROMO (no socket on main board! future option) 


-2000 

126 


DB 

R0M61Z 





127 

I 





2000' 


128 

R0MF6 

LABEL 

BYTE 

i 

R0M2 (no socket on main boardi future option) 


-2000 

129 


DB 

ROMS I Z 





130 

f 





4000' 


131 

R0MF8 

LABEL 

BYTE 

« 

R0M4 (no socket on main board! future option) 


-2000 

132 


DB 

ROMS I Z 





133 

« 





6000' 


134 

ROMFA 

LABEL 

BYTE 

i 

R0M6 (no socket on main boardi future option) 


-2000 

139 


DB 

R0MS1Z 





136 

i 





8000 ' 


137 

EPROM 

LABEL 

BYTE 

i 

ROMB Starting loc of main board option ROM 


-2000 

138 


DB 

ROMSIZ 





139 

l 





AOOO ' 


140 

SY8R0M 

LABEL 

BYTE 

i 

Starting loc of system ROM 


REBET is located at absolute memory location OFFFFOM. This is where the 
processor starts after being reset (with CB - FFFFM* other seg-regs - O) 


SECT RESET 
ASSUME CS: RESET 


No errors detected 


% 
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*0000 


•0000 


1 I «*»**»**««#**«#»*«******»##**##«*«»*»*«***«*#«»*««»«»«*««««»«*»«««*«*»««**»«»» 

2 l TITLE - TIMIBR (SYSTEM TIMER INTERRUPT SERVICE ROUTINE) 

3 I COMPUTER - BOSS ASSEMBLY LANGUAGE 

4 i ABSTRACT - The system timer interrupt service routine logic is executed 

9 i each time a clock tick occurs (29ms). Register DS is saved on the 

6 i stack of the interrupted logic. The timer interrupt processor 

7 i stack is then used to save registers that are commonly used by 

8 i interrupt processors (AX*BX*and ES) and registers that are used 

9 i locally. 

10 i 

11 i At 29ms Intervals (each tick)* the ROMTIM subroutine is celled 

12 i to perform timing services for the fixed events defined in ROM. 

13 i A tick counter is incremented and checked to see if 100ms has 

14 i elapsed. If so* the time of day is updated by calling CLKSRV. 

19 i If ZEX is present in the system* TIMIBR does soft interrupts to 

16 i ZEX logic to perform timing services for ZEX (dynamic) timing 

17 i events and to do time slicing operations. If ZEX is not in 

18 i the system* the soft interrupt logic simply does an IRET. 

19 i 

20 i On exit* this logic restores all registers used locally from the 

21 i interrupt processor stack and jumps to the common interrupt exit 

22 i logic* passing the location of the interrupted logic's stack in 

23 i registers EB and BX. 

24 » 

29 i REGISTERS USED - none 
26 « 

27 i STACK USED - B bytes (user stack) 

28 i 16 bytes (interrupt stack) 

29 i 

30 i ****************************************************************************** 

31 NAME TIMIBR 

32 BUBTTL 

34 i ****************************************************************************** 
39 i PUBLIC DEFINITIONS 

36 i ****************************************************************************** 

37 

38 PUBLIC TIMIBR 

39 

40 l ****************************************************************************** 

41 i EXTERNAL REFERENCES 

42 i ***#****#*******************#**«h^*********##*****#*****#***«***************** 

43 


44 

SECT 

ROMCOD 



49 

EXTERN 

CLKSRV: NEAR I 

CLOCK SERVICES 

(CLKDSR) 

46 

47 

48 

EXTERN 

ROMTIM: NEAR i 

TIMING SERVICES 

(ROMTIM) 

SECT 

ROMDAT 



49 

EXTERN 

DBKC J1: BYTE i 

MEMORY COPY OF TICK CTR LATCH 

(ROMDAT) 

90 

EXTERN 

TIKCTR: BYTE t 

TICK COUNTER 

(ROMDAT) 

91 

EXTERN 

TIMISP: WORD i 

TIMER INTERRUPT STACK BP 

(ROMDAT) 

92 

EXTERN 

TMSPSV: WORD l 

WORD TO SAVE USER SP 

(ROMDAT) 

93 

EXTERN 

TMSSSV: WORD § 

WORD TO SAVE USER SS 

(ROMDAT) 
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94 

99 I a***************************************************************************** 

96 i LOCAL CONSTANTS 

97 i INCLUDE PEG: VECTOR. EGU 

9B l INCLUDE PEG: PORTADDR. EQU 

99 i INCLUDE PEG: LATCHES. EGU 

60 i ****************************************************************************** 

61 

-0004 63 LIMIT EGU 4 I NUMBER OF TICKS TO MAKE TIMING 

63 i SERVICES. CLOCK SERVICES RESOLUTION 

210 





219 


BUBTTL 

MAIN 






220 


«*****«« 

»***«***»*#*« 

h»#*«*****« «*«««***• 





221 

« 


MODULE ENTRY POINT 





222 









223 







-0000 

224 


SECT 

ROMCOD 






229 


ASSUME 

CB: ROMCOD 






226 


ASSUME 

DS: ROMDAT 






227 






0000 ' 



228 

TIMIBR 

PROC 

FAR 

i i f 

f 

0000' 

IE 


229 


PUSH 

DS 

f f f 

SAVE CURRENT DB ON USER STACK 

0001 ' 

2EFE 06 C19A 

230 


INC 

BYTE PTR CS: 

INTCTR+CSWRAPi I i 

INCREMENT INTERRUPT COUNTER 

0006' 

2E0E IE C 180 

231 


MOV 

DS. WORD PTR 

CS: DSADDR+CBWRAPi I 1 

DB » ROM DATA SEGMENT 

OOOB ' 

0C 

16 0007 " 

232 


MOV 

TMSBSV. SS 

I f f 

SAVE CURRENT BS, SP 

OOOF ' 

09 

26 0006" 

233 


MOV 

TMSPSV, BP 

f f f 


0013' 

8C 

DC 

234 


MOV 

BP. DS 

f f f 

STACK BEO - ROM DATA SEGMENT 

0019' 

8E 

D4 

239 


MOV 

SB. BP 

l f l 


0017' 

BC 

0009" 

236 


MOV 

BP. OFFSET TIMI6P ill 

SB. BP - INTERRUPT STACK PTR 

001 A ' 

90 


237 


PUSH 

AX 

f f f 

SAVE COMMONLY USED REGISTERS 

00 IB ' 

93 


238 


PUSH 

BX 

f 1 i 

ON INTERRUPT BTACK 

OOtC' 

06 


239 


PUSH 

ES 

1 f f 


OOID ' 

AO 

0003" 

240 


MOV 

AL. DBKC _M 

1 l f 

AL - COPY OF LATCH FROM MEMORY 

0020' 

24 

FD 

241 


AND 

AL. NOT TMR1EN Iff 


0022' 

E6 

00 

242 


OUT 

DSKC_P» AL 

f f i 

CLEAR THE TIMER INTERRUPT 

0024 ' 

34 

02 

243 


XOR 

AL. TMR1EN 

f f i 


0026' 

E6 

00 

244 


OUT 

DSKC_P. AL 

f f f 


0020' 

FB 


249 


ST I 


I f i 

ENABLE INTERRUPTS 

0029 ' 

97 


246 


PUSH 

DI 

f f l 

SAVE REGISTERS USED LOCALLY 




247 






002A ' 

E8 

0002“ 

248 


CALL 

ROMTIM 


HANDLE FIXED TIMING SERVICES 

002D ' 

FE 

06 0004" 

249 


INC 

TIKCTR 

f 

INCREMENT TICK COUNTER 

0031 ' 

80 

3E 0004" 04 

290 


CMP 

TIKCTR. LIMIT 

f Q: 

REACH TIMING INTERVAL LIMIT ? 

0036' 

79 

OA 

291 


JNZ 

NOTYET 

f N: 

NO TIMING OR CLOCK SERVICES YET 

0038' 

C6 

06 0004" 00 

292 


MOV 

TIKCTR, 0 

f Y: 

RESET TICK COUNTER 

003D ' 

E8 

0001" 

293 


CALL 

CLKSRV 

f 

UPDATE TIME OF DAY 

0040 ' 

CD 

9A 

294 


INT 

TIMINT 

f 

HANDLE DYNAMIC TIMING SERVICES 

0042' 



299 

NOTYET: 



f 


0042' 

CD 

98 % 

296 


INT 

SLCINT 

f 

DO TIME-SLICING IF NEEDED 




297 






0044' 

9F 


298 


POP 

DI 

i 

RESTORE REGISTERS USED LOCALLY 

0049' 

2E8E IE Cl 80 

299 


MOV 

DS. WORD PTR 

CS: DSADDR+CSWRAP I 

DS « ROM DATA SEGMENT 
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004A ‘ 

8E 06 0007" 

260 

MOV 

E8i TMBSSV 

f 

E9 - 

BB OF INTERRUPTED LOGIC 

004E 9 

BB IE 0006" 

261 

MOV 

BX, TMBP9V 

f 

BX - 

BP OF INTERRUPTED LOGIC 

0032' 

2EFP 2E Cl 64 

262 

JMP 

DWORD PTR 

CB: X ITVEC*4+CBWRAPi 

TAKE 

COMMON INTERRUPT EXIT 



263 

SUBTTL 







264 

END 






No errors detected 
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-OOOO 


0000 ' 

0000 ' 80 69 03 7F 

0004 ' CF 


1 

2 

3 

4 
9 
6 
7 

5 
9 

10 

11 

12 

13 

19 

16 

17 

18 

19 

20 
21 
22 

23 

24 
29 
49 

46 

47 

48 

49 

90 

91 

92 

93 

94 
99 

96 

97 

98 

99 
60 
61 
62 

63 

64 
69 
66 

67 

68 

69 

70 

71 

72 


i #•**•*•«»*****»*»*«*«*»*****« 

I TITLE - TIMSUB (TIMER SUBROUTINES) 

l COMPUTER - BOBS ASSEMBLY LANGUAGE 

i ABSTRACT - This module contains subroutines that are called via a 

i soft interrupt from the TIMING macro. The following subroutines 

i are provided : 

i 

« T1MCAN - Cancel a timing event 

i TIMRST - Restart a timing event 

i 

i ****e#*##***#*#*******#*#**-iHHHHt**#*#***#***#*»*#***#******#*****##**** 
NAME TIMSUB (TIMER SUBROUTINES) 

BUBTTL 

j *********************************************************************** 

l PUBLIC DEFINITIONS 

i #***«*»****«**»*•«»*«*»*»*»*«***»***»***#«»»««»»»*«»•«»«»*»«»*»»»»•»*«» 


PUBLIC TIMCAN 
PUBLIC TIMRST 


I LOCAL CONSTANTS 

» INCLUDE PEG: TIMEVT.EQU 


BUBTTL TIMCAN (CANCEL EVENT SUBROUTINE) 

BECT ROMCOD 
ASSUME CS: ROMCOD 


TITLE - TIMCAN (TIMER CANCEL EVENT SUBROUTINE) 

ABSTRACT - This subroutine allows the caller to make an event 

Inactive. The event status bit is reset to indicate that 
the event is now inactive. Since only interrupt-oriented 
events are supported at this time* the event acknowledgement 
flag is not checked. 

INPUT - DB* DI - EVENT ADDRESS 

OUTPUT - Event is now inactive 

REGISTERS USED - none 

STACK USED - 6 BYTES 

•«*****»»*•*«*##****« ******** *#*#** *«*««««#»*#*»•***«*«**»*««»«*««««***»*»*»** 


TIMCAN PROC 
AND 
IRET 


FAR in DB* DI - EVENT ADDRESS 

BYTE PTR IEVFLGCDI 3# NOT ( 1 SHL EVTSTA)m RESET STATUS BIT 

ill ** INTERRUPT RETURN ** 


BUBTTL TIMRST (RESTART EVENT SUBROUTINE) 
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73 i **»*«*#*#*#*#*«***##****#***#*#***#*«**«»******#*«**#*****#*#***#**»•*** 

74 i 

73 i TITLE - TIMRST (TIMER RESTART EVENT SUBROUTINE) 

76 i ABSTRACT - Thi« subroutine allows the caller to restart a timing want. 

77 i The avant statu* bit is rasat to Indicate that tha avant is now 

70 i inactiva. Sinca onlg intarrup t-or iantad avants ara supportad at 

79 i this time# tha avant ac know lodgement flag is not chaclad. 

80 i 

81 i INPUT - DS, DI - EVENT ADDRESS 

02 i AX » INITIAL COUNTER VALUE 

83 i 

04 i OUTPUT - Evant restarted 
83 i 

86 i RE0IBTER8 USED - none 

87 • 

88 i STACK USED - 6 BYTES 

89 i 

90 i *#****#*e*****************************#*************e*****e*********e**a 

91 


0003 ' 




92 

TIMRST PROC 

FAR Ml DB. DI - EVENT ADDRi AX - COUNT 

0003 9 

89 

43 

04 

93 

MOV 

IEVCTRCDI ]• AX ill SET INITIAL COUNT IN EVENT 

0008 ' 

80 

4D 

03 80 

94 

OR 

BYTE PTR IEVFLOt DI J» 1 BHL EVTBTAi I 1 BET STATUS BIT 





93 


• • 1 NEW STATUS - ACTIVE 

OOOC' 

CF 



96 

I RET 

in *e INTERRUPT RETURN ** 





97 







98 

8UBTTL 






99 

END 



No errors detected 
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Pago 1 


-0000 


-0000 


1 

2 

3 

4 

5 

6 
7 
B 
9 


-0000 


0000 ' 


•oooo 

•0001 

*0002 

*0003 

•0005 


****************************************************************************** 

TITLE - TIMTBT - timers power up diagnostics. 

COMPUTER - B088 ASSEMBLY LANGUAGE 

ABSTRACT - This module contains the power up diagnostics that test the 

three timers present in the PEGASUS main board. It is assumed that 
the ability to generate interrupts has been previosuly tested. 

This test emphasizes the testing of the timer accuraccy in various 
timer intervals. 


10 


NAME 

TIMTST - PEGASUS power up timer test 


11 

1 

BUBTTL 




13 


******** 




14 

l 


EXTERNAL REFERENCES 


19 

j ****************************************************************************** 

16 


SECT 

ROMDAT 



17 


EXTERN 

DSKC J1: BYTE 

l DISK SELECT LATCH MEMORY IMAGE. 

< ROMDAT) 

18 


EXTERN 

PRC0J1: BYTE 

1 PRINTER OUTPUT LATCH MEMORY IMAGE. 

(ROMDAT) 

19 


SECT 

ROMCOD 



20 


ASSUME 

CS: ROMCOD 



21 


EXTERN 

DBPDIE: NEAR 

! DISPLAY FATAL ERROR and DIE. 

(OUTPUT) 

22 


EXTERN 

VECINI: NEAR 

i ENTRY TO VECTOR INITIALIZATION. 

(VECINI) 

23 


EXTERN 

DECLED: NEAR 

i DECREMENT LED SUBROUTINE. 

(DECLED) 

24 


EXTERN 

TOERR: ABS 

1 TIMER 0 ERROR CODE. 

(TBTERR) 

29 


EXTERN 

T1ERR: ABS 

1 TIMER 1 ERROR CODE. 

(TBTERR ) 

26 


EXTERN 

T2ERR: ABS 

j TIMER 2 ERROR CODE. 

(TSTERR ) 

27 


EXTERN 

LED100: ABS 

i LED ERROR CODE. 

(ROMERR) 

28 


**»*««** 



**«»*«*«* 

29 

i 


PUBLIC DEFINITIONS 


30 

i ****************************************************************************** 

31 


PUBLIC 

TIMTBT 

i ENTRY TO TIMER POWER UP DIAGNOSTICS. 


32 

i ***************************** ************************************************* 

33 

1 


LOCAL 

CONSTANTS 


34 

i 

INCLUDE 

PEG: HARDWARE. EQU 


39 

1 

INCLUDE 

PEG: VECTOR. EQU 


36 


»***»«** 

************** 



37 

1 





316 



************** 

***************************«***«****»****^ 


317 

l 


BASE 

PAGE LOCATIONS 


318 

i **»*»*i 





319 

1 





320 

SECT 

ROMCOD 



321 

ASSUME 

CS: ROMCOD. DS 

: ROMDAT. ES: ABSO 


322 

1 





323 

i 


Table of test 

cases. 


324 

» 





329 

TMTTAB 

LABEL 

WORD 

i Table of cases tested. 


326 

i 





327 

TCMOD 

EQU 

0 

1 OFFSET TO MODE BYTE 


328 

TCLAT 

EQU 

1 

i OFFSET TO LATCH BYTE 


329 

TCERR 

EQU 

2 

1 OFFSET TO ERROR CODE 


330 

TCPORT 

EQU 

3 

i PORT ADDRESS 


331 

TCPROQ 

EQU 

9 

» OFFSET TO PROGRAM VALUE 
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*0007 

332 

TCCMEK 

EQU 

7 i 

OFFSET TO CHECK VALUE 



-0007 

333 

TCLIM 

EQU 

7 i 

OFFSET TO LIMIT READ. 



— OOOB 

334 

TMTSIZ 

EQU 

11 





333 

I 








336 

1 

(TCPROQ) 

PROG - PROGRAMMED TIMER COUNT 




337 

1 

(TCLIM) 

TIMER READ VALUE * (PROG 

AND OFFEOH) - 20H 




338 

f 



RUN TIME « PROG + (PROG - 

READ + 10) / 2) * CLOCK 

RATE 



337 

» 

(TCCHEK) 

LOOP COUNT « RUN TIME / LOOP TIME 




340 

1 



LOOP TIME - 21 * 200n*ec 

(LOOP % time) 




341 

l 






0000 ' 

36 

342 



DB 

TC_8C0+TC_URD+TCJ1D3i 

Timer 0 mode 3 


0001 ' 

00 

343 



DB 

TC_BCO+TC LAT I 

Latch timer 0 


0002' 

06# 

344 



DB 

TOERR i 

Timer 0 fail code 


0003' 

0014 

343 



DU 

TIMERO 1 

Port address for timer 

0 

0003' 

FFFF 

346 



DU 

OFFFFH l 

Timer count 


0007' 

30C6 

347 



DU 

030C6H 1 

Loop count * 32.428 ms 


0007' 

FFCO 

348 



DU 

OFFCOH i 

Timer read value 




347 

l 






0000 ' 

36 

350 



DB 

TC SCO+TC URD+TC_MD3i 

Timer 0 mode 3 


OOOC' 

00 

331 



DB 

TC SCO+TC LAT i 

Latch timer 0 


OOOD ' 

06* 

332 



DB 

TOERR 1 

Timer 0 fail code 


OOOE ' 

0014 

333 



DU 

TIMERO i 

Port address for timer 

0 

0010' 

30D4 

334 



DU 

030D4H f 

Timer count 


0012' 

074F 

333 



DU 

074FH 1 

Loop count — 10 ms. 


0014' 

30A0 

336 



DU 

030A0H l 

Timer read value 




337 

1 






0016' 

B6 

338 



DB 

TC_BC2+TC_URD+TC__MD3i 

Timer 2 mode 3 


0017' 

80 

337 



DB 

TC_6C2+TC_LAT l 

Latch timer 2 


0018' 

08* 

360 



DB 

T2ERR 1 

Timer 2 fail code 


0017' 

0016 

361 



DU 

TIMER2 i 

Port address for timer 

2 

001B ' 

FFFF 

362 



DU 

OFFFFH 1 

Timer count 


OOID ' 

61BD 

363 



DU 

0618DH i 

Loop count * 104.8 ms. 


001F ' 

FFCO 

364 



DU 

OFFCOH l 

Timer read value 




363 

1 






0021 ' 

B6 

366 



DB 

TC _BC 2+TC JWR D+TC J1D3i 

Timer 2 mode 3 


0022' 

80 

367 



DB 

TC_SC2+TCJLAT l 

Latch timer 2 


0023' 

08* 

368 



DB 

T2ERR 1 

Timer 2 fail code 


0024' 

0016 

367 



DU 

TIMER2 1 

Port address for timer 

2 

0026' 

186A 

370 



DU 

0186AH i 

Timer count 


0028' 

0731 

371 



DU 

0731H i 

Loop count * 10.0 ms. 


002A ' 

1840 

372 



DU 

O104OH i 

Timer read value 




373 

1 






002C ' 

76 

374 



DB 

TC __SC 1 +TC _UR D+TC _MD3 j 

Timer 1 mode 3 


002D ' 

40 

373 



DB 

TC SCi+TC LAT 1 

Latch timer 1 


002E ' 

07* 

376 



DB 

T1ERR l 

Timer 1 fail code 


002F ' 

0013 

377 



DU 

TIMER 1 i 

Port address for timer 

1 

0031 ' 

FFFF 

378 



DU 

OFFFFH i 

Timer count 


0033 ' 

61BD 

377 



DU 

0618DH i 

Loop count * 104.8 ms. 


0033 ' 

FFCO % 

380 



DU 

OFFCOH i 

Timer read value 




381 

i 






0037' 

76 

382 



DB 

TC__6C l+TC__WRD+TC__MD3i 

Timer 1 mode 3 


0038' 

40 

383 



DB 

TC_SC1+TC_LAT i 

Latch timer 1 
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0039 - 

07* 

3B4 



DB 

T1ERR l 

Timer 1 fail code 

003A ' 

0015 

385 



DM 

TIMER 1 i 

Port address for timer 1 

003C ' 

3D09 

3B6 



DM 

03D09H i 

Timer count 

003E ' 

1744 

3B7 



DM 

01744H l 

Loop count ■ 25.0 ms. 

0040 ' 

- JCEO 

3BB 



DM 

03CE0M l 

Timer read value 




389 

f 





0042 ' 



390 

TMTEND 

LABEL 

BYTE 





391 

I 








392 









393 

I 








394 

i 

This 

is the 

entry to the timer diagnostics. The speaker time is tested 




395 

I 

first 

. followed by the test of the 

interrupt driven timers. 81 is used as 




396 

« 

a pointer to 

the table of test cases. 




397 

i 

DL contains 

any errors found from 

the interrupt test. 




398 

i 








399 

i 


Disable timer interrupts. 





400 

l 





0042 ' 

BA 

DA 

401 

TIMTST: 

MOV 

BL. DL 

ill Get OR 'D error bits into BL. 

0044 ' 

AO 

oooi“ 

402 



MOV 

AL. DSKC J1 

ill Disable interrupts, enable speaker 

0047 ' 

24 

F9 

403 



AND 

AL. <NOT TMR1EN) AND 

(NOT TMR2EN) ill 

0049 ' 

OC 

01 

404 



OR 

AL. 6PKREN 

I i i 

004B ' 

A2 

0001 w 

405 



MOV 

DSKC__M. AL 

i i i Get latch memory image. 

004E' 

E6 

OO 

406 



OUT 

DSKC P. AL 

ill Mrite image to latch. 

0050 ' 

EB 

001B 

407 



CALL 

TBTMR 

ill Test timers. 

0053 ' 

AO 

0001" 

40B 



MOV 

AL. DSKC M 

mi Disable the speaker 

0056 ' 

24 

FE 

409 



AND 

AL. (NOT BPKREN) 

1 1 1 

0058' 

A2 

0001" 

410 



MOV 

DSKC_M. AL 

1 1 i Save latch memory image 

005B ' 

E6 

00 

411 



OUT 

DSKC P. AL 

ill Mrite image to latch 

005D ' 

OB 

DB 

412 



OR 

BL. BL 

i i i Q: Any errors? 

005F ' 

75 

06 

413 



JNZ 

INFAIL 

ill Y: go report them. 

0061' 

EB 

0005" 

414 



CALL 

DECLED 

ill N: decrement LED count. 

0064' 

E9 

0004“ 

415 



JMP 

VECINI 

ill Go execute floppy test. 




416 

i 







417 

» 

This 

is the 

timer failure logic. 

It places a failure code on the 




41B 

I 

parallel port for factory diagnostics purposes. This code indicates 




419 

i 

that 

a failure of one of the timers has occurred. 




420 

I 





0067' 

BA 

D3 

421 

INFAIL: 

MOV 

DL. BL 

i i i put error code into DL. 

0069' 

BO 

09* 

422 



MOV 

AL. LED 100 

1 1 f AL - LED FAIL CODE. 

006B ' 

E9 

0003" 

423 



JMP 

DSPDIE 

iiiFatal error stops the CPU. 




424 








425 

i 








426 

i 

This 

PROC li 

used to test all the 

timers. 




427 

I 

The method for verifying proper operation of these timers is by 




42B 

i 

tracking the 

elapsed time with a software loop/counter and observing 




429 

I 

the timer internal counter at the 

proper time to see if it matches its 




430 

1 

expected value. 





431 

I 





006E ' 


% 

432 

TBTMR 

PROC 

NEAR 


006E ' 

BE 

0000" 

433 



MOV 

6 1. OFFSET TMTTAB 

ill Get table of test cases. 

0071' 



434 

TOLOOP: 




0071' 

2E8B 4C 07 

435 



MOV 

CX.CS: TCCHEKCBI 1 

ill CX « software counter value. 


A, 
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0075 ' 

2E8B 34 03 

436 


MOV 

DX* CS: TCPORTCSI 1 



437 

i 


Initialize timer countor 

0079 ' 

2E8A 04 

438 


MOV 

AL. CS: TCMODCBl 3 

007C 9 

E6 17 

439 


OUT 

TIMCMD* AL 

007E ' 

2E8A 44 03 

440 


MOV 

AL.C8: TCPR0GC6I 3 

0082 ' 

EE 

441 


OUT 

DX. AL 

0083' 

2E8A 44 06 

442 


MOV 

AL. CS: TCPRQG+i CSI 3 

0087 ' 

EE 

443 


OUT 

DX* AL 

0088 ' 


444 

TOCNTL: 



0088 ' 

E2 FE 

443 


LOOP 

% 



446 




008A ' 

2E8A 44 01 

447 


MOV 

AL. CS: TCLATCSI 3 

008E ' 

E6 17 

448 


OUT 

TIMCMD, AL 

0090 ' 

EC 

449 


IN 

AL. DX 

0091 ' 

8A EO 

430 


MOV 

AH. AL 

0093 ' 

EC 

431 


IN 

AL. DX 

0094 ' 

86 C4 

432 


XCHQ 

AL, AH 

0096' 

23 FFEO 

433 


AND 

AX.OFFEOH 

0099' 

2E3B 44 09 

434 


CMP 

AX. CS: TCLIMCSI3 

009D ' 

73 OA 

433 


JNZ 

OVERLM 

009P ' 

83 C6 OB 

436 

NXTTBT : 

ADD 

SI. TMTBIZ 

00A2 ' 

81 FE 0042 H 

437 


CMP 

SI. OFFSET TMTEND 

00A6 ' 

73 C9 

438 


JNZ 

TOLOOP 

OOAB ' 

C3 

439 


RET 




460 

i 



00A9 ' 


461 

OVERLM: 



00A9 ' 

2E0A 3C 02 

462 


OR 

BL. CS: TCERRCSI 3 

OOAD ' 

EB FO 

463 


JMP 

NXTTBT 



464 

i 





463 


END 



No errors detected 


16: 96: 34 


Pago 1-3 


ill DX ■ Timor port address, 
i i i Boloct timor in modo 3. 

i i i 

ill BL* Low bgto of countor valuo. 

1 1 i 

i i i BH=» High bgto of countor valuo. 


Q: Software countor valuo ■ O ? 

N: Continue in loop. 

Y: road timor countor valuo. 

Road timor countor valuo. 

Save LSB in AH. 

Exchange LSB and MSB. 

Provide for email window (16 count) 
G: countor valuo within limit* ? 

N: countor valuo wrong. 

Y: Point to next test case 
0: End of test? 

No# continue testing of next case. 
Yes. return to caller. 


No# report timor error 
And do next tost 
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t » a**************************** »«*****»*«««**«#««*«*»««**««#««##*«*»»*»«•««««««« 

2 i TITLE - TBTERR (POWERUP TEST ERROR CODES) 

3 l COMPUTER - B088 ASSEMBLY LANGUAGE 

4 i ABSTRACT - THIS MODULE CONSISTS OF THE VARIOUS ERROR CODES THAT THE 

9 i DIFFERENT POWERUP TESTS MIGHT PUT TO THE PARALLEL PRINTER 

6 i PORT TO CONVEY ADDITIONAL INFORMATION CONCERNING THE NATURE 

7 i OF THE LED INDICATED FAILURE. 

8 « 

9 i REGISTERS USED - NONE 

10 i 

11 i STACK USED - NONE 

12 i 

13 i a#####*###*##*#*#*#########*###*#-**#*###*##**###*###*#########**###*##**#**#*# 

14 NAME TBTERR 

19 SUBTTL 

17 i ««»«*»«»*«#*****«**»»***»**»•*»««*««•*««•*«*•««*•*»««»«««««»«*««**«»«•«*«*«»«» 
IB i PUBLIC DEFINITIONS 

19 i ****************************************************************************** 

20 f 


21 

PUBLIC 

ATMERR 

22 

PUBLIC 

ATTERR 

23 

PUBLIC 

C INTER 

24 

PUBLIC 

CURERR 

29 

PUBLIC 

CRAMER 

26 

PUBLIC 

ELEVEN 

27 

PUBLIC 

E_ODD 

2S 

PUBLIC 

E REG 

29 

PUBLIC 

E_CMD 

30 

PUBLIC 

VI DERR 

31 

PUBLIC 

VBLERR 

32 

PUBLIC 

TOERR 

33 

PUBLIC 

T1ERR 

34 

PUBLIC 

T2ERR 

39 

PUBLIC 

ICNERR 

36 

PUBLIC 

IVIERR 

37 

PUBLIC 

TIMERR 

38 

PUBLIC 

NMIERR 

39 

PUBLIC 

KEYERR 

40 

PUBLIC 

FLIERR 

41 



42 

SUBTTL 

MAIN 


43 i ****************************************************************************** 

44 i MODULE ENTRY POINT 

49 ) *«*#«««**«**#*##«*•*«*#**###**»*«*«*********«*#*«*»««**»«««**»*»****•*****«#»* 

46 i INTERRUPT CTRL ERROR CODES FOR PARALLEL PRINTER PORT 

47 i 


-0000 


4B 

ICNERR 

EGU 

OOH 

i CONTROLLER ERROR ( IMR ) . 

-OOOl 


49 

IVIERR 

EQU 

01H 

1 INVALID INTERRUPT ERROR. 

-0002 

\ 

90 

NMIERR 

EQU 

02H 

I NMI ERROR FAILURE. 

-0004 


91 

TIMERR 

EQU 

04H 

i TIMER INTERRUPT FAILURE. 

-OOOB 


92 

FLIERR 

EQU 

OBH 

j FLOPPY INTERRUPT FAILURE. 

-0010 


93 

KEYERR 

EQU 

10H 

i KEYBOARD INTERRUPT ERROR. 
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MAIN T8TERR.SRC 



94 

l 







99 








96 

f 

TIMER 

ERROR CODES FOR 

PARALLEL PRINTER PORT 



97 

1 






•0020 

9B 

TOERR 

EQU 

20H 

l TIMER 0 ERROR. 


•0040 

99 

T1ERR 

EQU 

40H 

• TIMER 1 ERROR. 


-0080 

60 

T2ERR 

EQU 

BOH 

I TIMER 2 ERROR. 



61 

i 







62 


•••nee 






63 

1 

D1BK 

CTRL ERROR CODES 

FOR PARALLEL 

PRINTER PORT 



64 

l 






•OOOl 

69 

EJEVEN 

EQU 

01H 

i 

Even-order bit In 

eecbuf bad error 

-0002 

66 

E ODD 

EQU 

02H 

l 

Odd-order bit in 

aecbuf bed error 

•0004 

67 

E REO 

EQU 

04H 

i 

FDC register bed 

error 

— OOOB 

6B 

EjCMD 

EQU 

OBH 

I 

Commend execution 

error 


69 

l 







70 








71 

i 

CRT CTRL ERROR CODES FOR PARALLEL 

PRINTER PORT 



72 

f 






-OOOl 

73 

ATMERR 

EQU 

01H 

f 

Attribute memory 

failure. 

-0002 

74 

ATTERR 

EQU 

02H 

I 

Attribute letch feilure. 

-0004 

79 

CURERR 

EQU 

04H 

l 

Controller feilure (curior). 

-OOOB 

76 

CRAMER 

EQU 

OBH 

i 

Cherecter memory 

f ei lure. 

-0010 

77 

VIDERR 

EQU 

10H 

f 

Video output failure. 

-0020 

78 

C INTER 

EQU 

20H 

» 

CRT interrupt feilure. 

-0040 

79 

VBLERR 

EQU 

40H 

i 

Vertical blent interrupt feilure. 


BO 

1 »«»«•* 

#«#«•» 






B1 


END 






No error* detected 


% 
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-0000 


1 j a*********************************************************************** 

2 i TITLE - VECINI - ABSO initialization) vectors* system info 

3 i COMPUTER - B0B8 Assembly Language 

4 i ABSTRACT - This routine is responsible for initializing the interrupt 

9 « vectors* BIOS interface vectors* and various system information 

6 f contained in the first IK of RAM. Note that all unused interrupt 

7 i vectors are set to WILD**. 

8 i 

9 i *** BE WARNED: THIS MODULE IB AFFECTED BY ANY CHANGES IN THE 

10 i FILE 'VECTOR. EQU ' DUE TO THE FACT THAT THE VECTOR INITIALIZATION 

11 l TABLES MUST MATCH THE VECTOR EQUATES. 

12 i 

13 i ************************************************************************ 

14 NAME VECINI - ABSO initialization) vectors* system info 

19 i BUBTTL 

17 i ************************************************************************ 

18 l PUBLIC DEFINITIONS 

19 I ************* 

20 f 

21 PUBLIC 

22 PUBLIC 

23 PUBLIC 

24 PUBLIC 
29 I 

26 i ************* 

27 i EXTERNAL REFERENCES 

28 I ****************************************** 

29 I 


30 • 

EXTRN 

BEEP 10: FAR 

» 

System beeper I/O handler 

( BELDSR ) 

31 

EXTRN 

CLK_IO: FAR 

i 

Time-of-day clock I/O handler 

(CLKDSR) 

32 

EXTRN 

CFG _IO: FAR 

) 

System Configuration function 

(CONFIG) 

33 

EXTRN 

CRT jm: FAR 

i 

Screen I/O handler 

( CRTDSR ) 

34 

EXTRN 

DSK_IO: FAR 

i 

Floppy disk I/O handler 

( DSKDSR ) 

39 

EXTRN 

DSKISR: FAR 

« 

Disk interrupt service routine 

( DSKDSR ) 

36 

EXTRN 

DSKTST: NEAR 

i 

Entry point for the FDC test routine 

(DSKTST) 

37 

EXTRN 

FATAL: FAR 

) 

Fatal error handler 

(OUTPUT) 

38 

EXTRN 

INTRET: FAR 

) 

Common IRET instruction (for dummies )( INTXIT) 

39 

EXTRN 

INTXIT: FAR 

) 

Common interrupt exit logic 

(INTXIT) 

40 

EXTRN 

KEY_IO: FAR 

) 

Keyboard I/O handler 

(KEYDSR) 

41 

EXTRN 

KEyTsR : FAR 

) 

Keyboard interrupt service routine 

(KEYDSR ) 

42 

EXTRN 

KPAUSE: FAR 

) 

Keyboard default pause key handler 

(KEYDSR) 

43 

EXTRN 

PUPNMI : FAR 

i 

Powerup NMI interrupt service routine (OUTPUT) 

44 

EXTRN 

PRT_IO: FAR 

i 

Printer I/O handler 

(PRTDSR ) 

49 

EXTRN 

PWRUP: FAR 

) 

PotDerup reset starting location 

(RESET) 

46 

EXTRN 

TIMCAN: FAR 

) 

Timing services — cancel event 

(TIMSUB) 

47 

EXTRN 

TIMISR: FAR 

) 

Timer interrupt service routine 

(TIMISR) 

48 

EXTRN 

TIMRST: FAR 

) 

Timing services - restart event 

(TIMSUB) 

49 

90 i 

91 

92 

EXTRN 

WILD**: FAR 

J 

Unexpected (Wild) interrupt handler 

(OUTPUT) 

SECT 

EXTRN 

ROMDAT 
RMDTBZ : ABS 

i 

Size of ROMDAT data area 

(ROMDAT) 


93 i 


FILVEC 

VECINI 

VECTBO 

VTOLEN 


v 
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94 

99 

96 

97 

98 
192 

I 

l 

l 

1 

1 

I 


INCLUDE 

LOCAL CONSTANTS 
PEO: VECTOR. EQU 





1 9 J 












194 

1 









-0014 


199 

TP 9 VEC 

EQU 

(0VFINT*4)+4 





-0018 


196 

TP 6 VEC 

EQU 

TP9VEC+4 








197 












198 

l e 




#e* 







199 

I 



CODE SEGMENT DEFINITION 




160 

I 




««« 







161 

f 









-0000 


162 



SECT 

ROMCOD 








163 



ASSUME 

C8: ROMCOD 








164 

i 











169 

i 




*»* 







166 

» 



LOCAL 

DATA AREA 





167 

1 




*** 







168 

1 











169 

1 

That* uti 

of vectors 

are 

moved Into the 8088 Interrupt area 




170 

1 

< Tab la VECTBO la aiovad 

bg 

the 

routine RAMINI ) 




171 

1 








0000' 



172 

VECTBO 

LABEL 

WORD 


i 

Table 0 - 

Processor traps 




173 

I 








0000' 

0014“ 

0000“ 

174 



DO 

WILD** 


s 

Interrupt 

0 - Dlvide-by-xero trap 

0004' 

0014“ 

0000“ 

179 



DD 

WILD** 


i 

Interrupt 

1 - Single-step trap 

0008' 

000E“ 

0000“ 

176 



DD 

PUPNMI 


i 

Interrupt 

2 - Non-maskable Interrupt 

OOOC' 

0014“ 

0000“ 

177 



DD 

WILD** 


i 

Interrupt 

3 - Break (single-byte) soft lntr 

OOIO' 

0014“ 

0000“ 

178 



DD 

WILD** 


i 

Interrupt 

4 - Overflow trap 




179 

f 








0014' 



180 

VTOEND 

LABEL 

WORD 






-OOOA 


181 

VTOLEN 

EQU 

(VT0EN0-VECTB01/2 






182 
« on 












18J 

I — 








0014' 



184 

VECTB 1 

LABEL 

WORD 


i 

Table 1 - 

Pegasus system vectors 




189 

1 











186 

| 

Hardwire Interrupts: 








187 

I 








0014' 

0014“ 

0000“ 

188 



DD 

WILD** 


9 

Interrupt 

40H - IRO (tinuaad > 

0018' 

0014“ 

0000“ 

189 



DD 

WILD** 


1 

Interrupt 

41N - IR1 (unused) 

OOtC' 

0014“ 

0000“ 

190 



DD 

WILD** 


1 

Interrup t 

42H - IRS <unu«»d > 

0020' 

0012“ 

0000“ 

191 



DD 

TIMISR 


1 

Interrupt 

43H - IR3 (Timer 1) 

0024' 

0014“ 

0000“ 

192 



DD 

WILD** 


1 

Interrupt 

44H - IR4 (unused) 

0028' 

0014“ 

0000“ 

193 



DD 

WILD** 


1 

Interrup t 

4SH - IR9 (Parallel port ACK) 

002C ' 

0006“ 

0000“ 

194 



DD 

DSKIBR 


1 

Interrup t 

46M - IR6 (Disk controller) 

0030' 

OOOC" 

0000" * 

199 



DD 

KEYISR 


J 

Interrup t 

47H - IR7 (Keyboard USART) 




196 

1 











197 

1 

BIOS Interface vector* 








198 

| 
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0034* 

oooi- oooo- 

199 


DO 

BEEP 10 l 

Interrupt 48H - 

System beeper I/O 

0038 * 

0004“ OOOO" 

aoo 


DD 

CRT_IO i 

Interrupt 49H - 

Bcreen I/O 

003C ' 

OOOB" OOOO" 

aoi 


DO 

KEY_IO i 

Interrupt 4AH - 

Keyboard I/O 

0040* 

OOOF- 0000- 

303 


DD 

PRT 10 I 

Interrupt 4BH - 

Printer port I/O / 

0044* 

0014" OOOO" 

303 


DO 

WILDS* l 

Interrupt 4CH - 

*** UNUSED *** , 

0048 ' 

0009“ OOOO- 

304 


DO 

D6K_I0 l 

Interrupt 4DH - 

Floppy dish interface j 

004C * 

oooa- oooo- 

309 


DO 

CLK_IO l 

Interrupt 4EH - 

Time-of~day clod I/O 

0090* 

0003" OOOO" 

306 


DD 

CFG_IO l 

Interrupt 4FH - 

Bystem conf duration 



307 

i 




I 

0094* 

0008- oooo- 

308 


DD 

FATAL 1 

Interrupt BOH - 

Fatal error trap 

0098* 

0013- OOOO- 

309 


DD 

TIMRST 1 

Interrupt 91H - 

Restart timing event 

009C ' 

ooti- oooo- 

310 


DD 

TUNC AN i 

Interrupt 93H - 

Cancel timing event 

0060 ' 

0014- oooo- 

311 


DD 

WILD** l 

Interrupt 93H - 

(unused 1 

0064* 

0014 - oooo- 

313 


DD 

WILD** 1 

Interrupt 94H - 

(unused) j 

0068* 

0014- 0000" 

313 


DD 

WILD** l 

Interrupt 99H - 

(unused ) 

006C * 

0014“ OOOO" 

314 


DD 

HHLD*t 1 

Interrupt 96H - 

(unused) 

0070* 

0009- OOOO- 

319 


DD 

INTRET 1 

Interrupt 97H - 

CRT character mapping vector 



316 

f 





0074* 

0009- OOOO- 

317 


DD 

INTRET I 

Interrupt 9BH - 

Time slicing (every 39 msec) 

0078* 

OOOA" OOOO- 

318 


DD 

INTXIT 1 

Interrupt 99H ~ 

Common interrupt exit routine 

007C * 

0009" 0000" 

319 


DD 

INTRET 1 

Interrupt 9AH - 

Dyn. timing services (100 ms) 

0080* 

0009“ oooo- 

330 


DD 

INTRET 1 

Interrupt 9BH - 

Keyboard mapping vector 

0084* 

000D" 0000- 

331 


DD 

KPAUSE l 

Interrupt 9CH - 

Keyboard pause hey vector 

0088* 

0009- OOOO" 

333 


DD 

INTRET l 

Interrupt 9DH - 

Keyboard breah hey vector 

OOBC* 

0009“ OOOO" 

333 


DD 

INTRET 1 

Interrupt 9EH - 

Keyboard print screen vector 

0090* 

0009“ OOOO" 

334 


DD 

INTRET • 

Interrupt 9FH - 

Keyboard queuing vector 



339 

i 





0094* 

OOOO* 

336 


DW 

ROMDAT • 

DSADDR - System 

ROM D8 segment address 

0096* 

0019* 

337 


DW 

RMDT6Z 1 

D6BIZR - System 

ROM DB siie in bytes 

0098* 

OOOO oooc 

338 


DD 

OOOOOOOO « 

DSADDO/DSS I ZO - 

Option ROM O DB info 

009C * 

oooo OOOO 

339 


DD 

OOOOOOOO l 

D6ADD2/DS6 I Z3 - 

Option ROM 3 D9 info 

OOAO* 

OOOO OOOO 

330 


DD 

OOOOOOOO 1 

D6ADD4/DSBIZ4 - 

Option ROM 4 DB info 

OOA4 * 

OOOO OOOO 

331 


DD 

OOOOOOOO 1 

DBADD6/DS61Z6 - 

Option ROM 6 D8 info 

00A8 * 

OOOO oooo 

333 


DD 

OOOOOOOO l 

DSADD8/DSB I ZB - 

Option ROM 8 D8 info 

CQAC * 

oooo 

333 


DW 

OOOO • 

MEMSIZ 

i 

OOAE * 

00 

334 


DB 

00 1 

INTCTR 

• 

OOAF * 

00 

339 


DB 

00 l 

DRVBYT 

i 



336 

i 





OOBO* 

oooo 

337 


DW 

OOOO 1 

SYBCOl 


00B3 * 

oooo 

338 


DW 

OOOO 1 

BYBC03 


00B4 * 


339 

VT1EN0 LABEL WORD 


i 


"0090 

340 

VT1LEN EQU 

( VT1END-VECTB 1 )/3 


I 



341 





« 



343 

I * 







343 

l 


MODULE ENTRY POINT 




344 

I 







349 

« 







346 

I 

VECINI - 

Initiallis the interrupt vectors end 

system info 


% 

347 

1 







348 

I 

INPUT: 

(MEMSm It IDSADDR) 


i 



349 

1 

OUTPUT: 

(none* Vectors and tyi 

info initialised 



390 



(MEMBIZ) h ( D6ADDR ) unchanged 

i 








; ) 
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391 I USED: 

292 i STACK: 

293 ASSUME D8: ROMCOD, ES: ABSO 

294 f 


00B4 ' 



299 

VECINI 

PROC 

NEAR 



0084 ' 

FA 


296 


CLI 


i Protect this 

00B9 ' 

OE 


297 


PUSH 

CS 

i i i 


00B6 ' 

IF 


298 


POP 

DS 

« i i 

DS - ROMCOD 

00B7 ' 

31 

CO 

299 


XOR 

AX. AX 

i i i 


00B9 ' 

BE 

CO 

260 


MOV 

ES. AX 

i I i 

ES - ABSO 

OOBB' 

B9 

0014- 

261 


MOV 

CX. OFFSET MILD** 

I i i 

Bet all vectors to MILD** 

OOBE' 

EB 

0019 

262 


CALL 

FILVEC 

i f i 

Do it 




263 

1 



i i l 

EB-ABBO. DS-ROMCOD ... 

00C1 ' 

BE 

0014- 

264 


MOV 

SI, OFFSET VECTB1 

i I i 

Source for move in DB 

00C4 ' 

BF 

0100 

269 


MOV 

DI. OFFSET IR01NT*4 

i i i 

Destination for move in ES 

00C7 ' 

B9 

0090 

266 


MOV 

CX. OFFSET VT1LEN 


ill Length of move (in words) 

OOCA' 

F2 


267 


REP 




OOCB ' 

A9 


26B 


MOVB 

WORD PTR CDI1.M0RD PTR 

CBI 3 

ill Do it 




269 

I 





OOCC' 

26B9 2E 019B 

270 


MOV 

E8.W0RD PTR MEMSIZ* BP 

• i i 

Restore MEMSIZ 

00D1 ' 

BE 

DA 

271 


MOV 

DB. DX 

1 1 i 

Bet the DB back to normal 

00D3 ' 

E9 

0007- 

272 


JMP 

DBKTBT 

l l i 

Oo to next 


273 

274 I 

279 i 

276 i FILVEC - Fill BOBB vector space with 'constant' vector. (Fills entire 

277 i vector space except for first 9 (BOBB) vectors* DSADDR* I* MEMSIZ 

278 « which are init'ed by RAMIN1. ) 

279 i 

280 i INPUT: CX - The vector's offset (segment assumed to be ROMCOD) 

201 i *• Interrupts disabled 

2B2 i OUTPUT: (none) vector space initialised 

2B3 I USED: CX.DI*8I 

2B4 » STACK: 2 bytes 

2B9 ASSUME DB: ABSO. ES: ABSO 

2B6 i 


00D6 ' 


2B7 

FILVEC PROC 

NEAR 


00D6 ' 

FC 

28B 

CLD 


i i i Forward strings 

00D7 ' 

IE 

289 

PUSH 

DS 


OODB ' 

06 

290 

PUSH 

ES 

i i i 

00D9 ' 

31 FF 

291 

XOR 

DI . DI 

1 1 i 

OODB ' 

BE DF 

292 

MOV 

DS. DI 

ill Set up segment registers 

OODD' 

BE C7 

293 

MOV 

ES. DI 

1 1 i 

OODF ' 

BA 0000' 

294 

MOV 

DX.ROMDAT 

i i i Save DSADDR 

00E2 ' 

BB 2E 0198 

299 

MOV 

BP. WORD PTR MEMSIZ 

hi Save MEMSIZ 

00E6 ' 

89 OE 0014 

296 

MOV 

MORD PTR TP5VEC.CX 

ill Bet initial offset 

OOEA ' 

BC OE 0016 

297 

MOV 

MORD PTR TP9VEC+2. CS 

ill Set initial segment 

OOEE ' 

BE 0014 

29B 

MOV 

SI. OFFSET TP9VEC 

ill Copy vector from 1st location 

00F1 ' 

BF 0018 % 

299 

MOV 

DI. OFFSET TP6VEC 

ill ... to next location 

00F4 ' 

B9 01F4 

300 

MOV 

CX, 2*<291-1 ) 

in All 291 (DWORD) locations 

00F7 ' 

F2 

301 

REP 


ill a word at a time 

OOFB ' 

A3 

302 

MOVS 

WORD PTR tDI3, WORD PTR 

CBII 
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00F9 ' 

0? 

16 

OIBO 

303 

MOV 

I40RD 

PTR 

DBADDR* DX 


Rat tor* DBADDR 

OOFD ' 

B? 

2E 

0198 

304 

MOV 

WORD 

PTR 

MEMBIZ, BP 

l i i 

Rastora MEM9IZ 

0101 ' 

07 



305 

POP 

EB 



1 1 ! 

Rastora sag rags 

0102' 

IF 



306 

POP 

DS 



i l I 


0103' 

€3 



307 

RET 




I i f 

as* RETURN **a 


308 I 

30? END 


No errors detected 
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